hppa64: Fix fmt_f_default_field_width_3.f90 and fmt_g_default_field_width_3.f90

[official-gcc.git] / gcc / testsuite / gfortran.dg / deferred_character_32.f90

! { dg-do run }
!
! Test the fix for PR88117.
!
! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
!
program p
   character(:), pointer :: z(:)
   allocate (z, source  = ['abcd', 'bcde'])
   z = (z) ! gimplifier choked here.
   if (any (z .ne. ['abcd', 'bcde'])) stop 1
   deallocate (z)
end