2 ! PR35475 gfortran fails to compile valid code with ICE error in fold-const.c
3 ! Test case from PR report added to avoid future regression
12 subroutine subone(mytype_cur)
14 type (mytype) mytype_cur
20 subroutine subtwo(mytype_cur)
22 type (mytype) mytype_cur,mytype_fin
27 subroutine subthree(mytype_cur)
29 type (mytype) mytype_cur
30 call subone(mytype_cur)
34 ! { dg-final { cleanup-modules "modone modtwo" } }