[Bug fortran/87796] ICE in gfc_conv_string_parameter, at fortran/trans-expr.c:8926

[gs...@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87796

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

$ cat z3.f90
program p
   character :: num_images = 'c'
   print *, num_images(1)
end

$ gfortran-9-20181028 -c z3.f90 -fcoarray=single
z3.f90:2:26:

    2 |    character :: num_images = 'c'
      |                          1
Error: Function 'num_images' at (1) cannot have an initializer
z3.f90:2:26:

    2 |    character :: num_images = 'c'
      |                          1
Error: 'num_images' at (1) is not a VALUE


$ cat z4.f90
program p
   character :: num_images
   print *, num_images()
   num_images = 'c'
   print *, num_images
end

$ gfortran-9-20181028 -c z4.f90 -fcoarray=single
z4.f90:4:13:

    4 |    num_images = 'c'
      |             1
Error: 'num_images' at (1) is not a variable
z4.f90:5:22:

    5 |    print *, num_images
      |                      1
Error: Function 'num_images' requires an argument list at (1)