gcc/testsuite/gfortran.dg/use_29.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/57435
   4 !
   5 ! Contributed by Lorenz Hüdepohl
   6 !
   7 module precision
   8 end module precision
   9   contains
  10   use precision     ! { dg-error "Unexpected USE statement in CONTAINS section" }
  11 module stressten_rt ! { dg-error "Unexpected MODULE statement in CONTAINS section" }
  12   use precision     ! { dg-error "Unexpected USE statement in CONTAINS section" }
  13   implicit none     ! { dg-error "Unexpected IMPLICIT NONE statement in CONTAINS section" }
  14
  15 ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }