Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/initialization_19.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! The following program fails with 4.3.0 ! but works with 4.4.0. See: ! ! http://gcc.gnu.org/ml/fortran/2008-05/msg00199.html ! module c type d integer :: i=-1 end type d end module c module s use c contains subroutine g type(d) :: a ! Without the following line it passes with 4.3.0: print *, a%i if(a%i /= -1) STOP 1 a%i=0 end subroutine g end module s program t use c use s call g call g end program t