gcc/testsuite/gfortran.dg/initialization_19.f90

   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 !
   7 module c
   8 type d
   9   integer :: i=-1
  10 end type d
  11 end module c
  12
  13 module s
  14 use c
  15 contains
  16 subroutine 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
  22 end subroutine g
  23 end module s
  24
  25 program t
  26 use c
  27 use s
  28
  29 call g
  30 call g
  31
  32 end program t