1! { dg-do run } 2! Tests the fix for PR33376, which was a regression caused by the 3! fix for PR31564. 4! 5! Contributed by Harald Anlauf <anlauf@gmx.de> 6! 7module foo 8 implicit none 9 public chk 10 11 type mytype 12 character(len=4) :: str 13 end type mytype 14 type (mytype) ,parameter :: chk (2) & 15 = (/ mytype ("abcd") , mytype ("efgh") /) 16end module foo 17 18module gfcbug70 19 use foo, only: chk_ => chk 20 implicit none 21contains 22 23 subroutine chk (i) 24 integer, intent(in) :: i 25 if (i .eq. 1) then 26 if (chk_(i)% str .ne. "abcd") call abort () 27 else 28 if (chk_(i)% str .ne. "efgh") call abort () 29 end if 30 31 end subroutine chk 32end module gfcbug70 33 34 use gfcbug70 35 call chk (2) 36 call chk (1) 37end 38