https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102533
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code,
| |ice-on-valid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
$ cat z2.f90 # invalid, this is file za000.f90
end;<nul>&
$ cat generator_backend_locus.f90
program generate_backend_locus
implicit none
character(16) :: file
integer :: k
do k = 0, 255
write (file, '(a,i3.3,a)') 'za', k, '.f90'
open (1, file=file)
write (1, '(a)') 'end;' // char(k) // '&'
write (1, '(a)') ' '
close (1)
end do
do k = 0, 255
write (file, '(a,i3.3,a)') 'zb', k, '.f90'
open (1, file=file)
write (1, '(a)') 'end;&'
write (1, '(a)') char(k)
close (1)
end do
end
