1! { dg-do run } 2! The following program fails with 4.3.0 3! but works with 4.4.0. See: 4! 5! http://gcc.gnu.org/ml/fortran/2008-05/msg00199.html 6! 7module c 8type d 9 integer :: i=-1 10end type d 11end module c 12 13module s 14use c 15contains 16subroutine g 17 type(d) :: a 18 ! Without the following line it passes with 4.3.0: 19 print *, a%i 20 if(a%i /= -1) call abort() 21 a%i=0 22end subroutine g 23end module s 24 25program t 26use c 27use s 28 29call g 30call g 31 32end program t 33