gcc-4.9/gcc/testsuite/gfortran.dg/use_29.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile }
!
! PR fortran/57435
!
! Contributed by Lorenz Hüdepohl
!
module precision
end module precision
  contains
  use precision     ! { dg-error "Unexpected USE statement in CONTAINS section" }
module stressten_rt ! { dg-error "Unexpected MODULE statement in CONTAINS section" }
  use precision     ! { dg-error "Unexpected USE statement in CONTAINS section" }
  implicit none     ! { dg-error "Unexpected IMPLICIT NONE statement in CONTAINS section" }

! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }