2 ! Tests the fix for PR33376, which was a regression caused by the
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
12 character(len=4) :: str
14 type (mytype) ,parameter :: chk (2) &
15 = (/ mytype ("abcd") , mytype ("efgh") /)
19 use foo, only: chk_ => chk
24 integer, intent(in) :: i
26 if (chk_(i)% str .ne. "abcd") call abort ()
28 if (chk_(i)% str .ne. "efgh") call abort ()
38 ! { dg-final { cleanup-modules "foo gfcbug70" } }