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

Reply via email to