http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47850
--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-23
09:04:03 UTC ---
The problem is that for
integer,parameter :: C_INDEX(8) = unpack( &
vector = [(i,i=1,size(SENSOR_CHANNEL))], &
mask = [(any(SENSOR_CHANNEL(i) == NLTE_CHANNEL), &
i=lbound(SENSOR_CHANNEL,1),ubound(SENSOR_CHANNEL,1))], &
the mask is not regarded as gfc_is_constant_expr -> gfc_constant_ac.
