http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54730
--- Comment #5 from janus at gcc dot gnu.org 2012-09-28 13:11:16 UTC --- Note that the error goes away when replacing the generic intrinsic REAL by a specific one, e.g. FLOAT: implicit none intrinsic :: float real :: vec(1:2) vec = (/ float(a = 1), 1. /) end