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

--- Comment #2 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---
And these variants are silently accepted :


$ cat z5.f90
program p
   print *, '1: ', [character(.true.) :: 'x', 'y']
   print *, '2: ', [character(.false.) :: 'x', 'y']
   print *, '3: ', [character(1.) :: 'x', 'y']
   print *, '4: ', [character(1d1) :: 'x', 'y']
   print *, '5: ', [character((0.,1.)) :: 'x', 'y']
   print *, '6: ', [character(null()) :: 'x', 'y']
end


$ gfortran -g -O0 -Wall -fcheck=all -fno-frontend-optimize z5.f90
$ a.out
 1: xy
 2:
 3: xy
 4: xyy
 5:
 6:

Reply via email to