gcc/testsuite/gfortran.dg/pr70673.f90

   1 ! { dg-do run }
   2 !
   3 ! Test the fix for PR70673
   4 !
   5 ! Contributed by David Kinniburgh  <davidgkinniburgh@yahoo.co.uk>
   6 !
   7 module m
   8 contains
   9   subroutine s(inp)
  10     character(*), intent(in) :: inp
  11     character(:), allocatable :: a
  12     a = inp
  13     a = a           ! This used to ICE too
  14     if ((len (a) .ne. 5) .or. (a .ne. "hello")) STOP 1
  15     a = a(2:3)      ! Make sure that temporary creation is not broken.
  16     if ((len (a) .ne. 2) .or. (a .ne. "el")) STOP 2
  17     deallocate (a)
  18   end subroutine s
  19 end module m
  20
  21   use m
  22   call s("hello")
  23 end