2 ! The following program fails with 4.3.0
3 ! but works with 4.4.0. See:
5 ! http://gcc.gnu.org/ml/fortran/2008-05/msg00199.html
18 ! Without the following line it passes with 4.3.0:
20 if(a
%i
/= -1) call abort()
34 ! ! { dg-final { cleanup-modules "c s" } }