https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93482
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #4 from kargl at gcc dot gnu.org ---
Here is z1.f90 converted to a suitable testcase.
! { dg-do run }
program p
if (size([[character::]]) /= 0) stop 1
end
Here is z2.f90 converted to a suitable testcase.
! { dg-do run }
program p
integer :: i
character, parameter :: c(0) = 'a'
if (size([[c]]) /= 0) stop 1
if (size([[('b',i=1,0)]]) /= 0) stop 2
end