2 ! Tests the fix for PR33554, in which the default initialization
3 ! of temp, in construct_temp, caused a segfault because it was
4 ! being done before the array offset and lower bound were
7 ! Contributed by Harald Anlauf <anlauf@gmx.de>
13 character(len=8) :: mn = 'abcdefgh'
24 type (t_temp), pointer :: temp(:) => NULL ()
28 call construct_temp (temp)
29 if (any (temp % p% mn .ne. 'ijklmnop')) call abort ()
34 subroutine construct_temp (temp)
35 type (t_temp), intent(out) :: temp (:)
36 if (any (temp % p% mn .ne. 'abcdefgh')) call abort ()
37 temp(:)% p% mn = 'ijklmnop'
38 end subroutine construct_temp
46 ! { dg-final { cleanup-modules "gfcbug72" } }