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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---
These variants are working well :


$ cat z0.f90
program p
   character(*), parameter :: c0(2) = 'a'
   character(*), parameter :: c1(*) = ['a', 'b']
   character(*), parameter :: c2(*) = [character(2) :: 'a', 'b']
   character(2), parameter :: c3(*) = c1
   character(*), parameter :: c4(3) = 'c'
   character(*), parameter :: c5(*) = c1
   print *, c0
   print *, c1
   print *, c2
   print *, c3
   print *, c4
   print *, c5
end


$ gfortran -g -O0 -Wall -fcheck=all z0.f90
$ a.out
 aa
 ab
 a b
 a b
 ccc
 ab

Reply via email to