https://gcc.gnu.org/bugzilla/show_bug.cgi?id=91942
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Some other cases and specifier :
$ cat z4.f90
program p
integer :: i
inquire (1, iostat=i%kind)
open (1, iostat=i%kind)
read (1, iostat=i%kind)
write (1, iostat=i%kind)
write (1, id=i%kind)
write (1, size=i%kind)
open (1, iostat=i%kind)
close (1, iostat=i%kind)
open (newunit=i%kind)
inquire (iolength=i%kind)
inquire (1, exist=i%kind)
inquire (1, opened=i%kind)
inquire (1, pos=i%kind)
inquire (1, recl=i%kind)
!...
end
$ cat z5.f90
program p
character :: i
inquire (1, iostat=i%len)
open (1, iostat=i%len)
read (1, iostat=i%len)
write (1, iostat=i%len)
write (1, id=i%len)
write (1, size=i%len)
open (1, iostat=i%len)
close (1, iostat=i%len)
open (newunit=i%len)
inquire (iolength=i%len)
inquire (1, exist=i%len)
inquire (1, opened=i%len)
inquire (1, pos=i%len)
inquire (1, recl=i%len)
!...
end
