------- Comment #6 from tkoenig at gcc dot gnu dot org 2009-12-05 18:28 ------- $ cat huhu.f90 CHARACTER (kind=4,len=*) MY_STRING4(1:3), my_string_s4 PARAMETER ( MY_STRING4 = (/ "A" , "B", "C" /) ) end $ gfortran huhu.f90 huhu.f90:1.54:
CHARACTER (kind=4,len=*) MY_STRING4(1:3), my_string_s4 1 Error: Entity with assumed character length at (1) must be a dummy argument or a PARAMETER Changing the len=* to len=1 removes that error. Let's commit a modified test case and close the bug. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36534