3 ! Test the fix for PR70673
5 ! Contributed by David Kinniburgh <davidgkinniburgh@yahoo.co.uk>
10 character(*), intent(in) :: inp
11 character(:), allocatable :: a
12 a = a ! This used to ICE.
14 a = a ! This used to ICE too
15 if ((len (a) .ne. 5) .or. (a .ne. "hello")) STOP 1
16 a = a(2:3) ! Make sure that temporary creation is not broken.
17 if ((len (a) .ne. 2) .or. (a .ne. "el")) STOP 2