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" } }