https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79685
Dominique d'Humieres <dominiq at lps dot ens.fr> changed: What |Removed |Added ---------------------------------------------------------------------------- Blocks| |33056 --- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- Workaround --- pr79685.f90 2017-02-23 11:21:32.000000000 +0100 +++ pr79685_db.f90 2017-02-23 14:20:59.000000000 +0100 @@ -17,9 +17,9 @@ module foo private integer, parameter :: n_cfactors = 1 - type(OCF), dimension(n_cfactors), save, protected :: table_color_factors real, parameter, private :: color_factor_000001 = +1.0 - data table_color_factors( 1) / OCF(1,1,color_factor_000001) / + type(OCF), dimension(n_cfactors), save, protected :: table_color_factors & + = OCF(1,1,color_factor_000001) end module foo I am pretty sure that there is(are) (a) related PR(s), but I cannot find it(them). Referenced Bugs: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=33056 [Bug 33056] [Meta-bug] Data - statement related bugs