[Bug fortran/66709] ICE on formatted io with parameter array specifier fmt

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Whereas versions without "parameter" compile and run fine :


$ cat z_wr_fmt_ice_4.f90
program p
   character(4) :: fmt(1) = '(i8)'
   integer :: n
   read (*, fmt=fmt) n
   write (*, fmt=fmt) n
end


$ cat z_wr_fmt_ice_6.f90
program p
   character(1) :: fmt(4) = ['(', 'i', '8', ')']
   integer :: n
   read (*, fmt=fmt) n
   write (*, fmt=fmt) n
end