gcc/testsuite/gfortran.dg/import3.f90

   1 ! { dg-do compile }
   2 ! { dg-shouldfail "Invalid use of IMPORT" }
   3 ! Test invalid uses of import
   4 ! PR fortran/29601
   5
   6 subroutine test()
   7   type myType3
   8     import ! { dg-error "only permitted in an INTERFACE body" }
   9     sequence
  10     integer :: i
  11   end type myType3
  12 end subroutine test
  13
  14 program foo
  15   import ! { dg-error "only permitted in an INTERFACE body" }
  16   type myType
  17     sequence
  18     integer :: i
  19   end type myType
  20   type myType3
  21     sequence
  22     integer :: i
  23   end type myType3
  24   interface
  25     import ! { dg-error "only permitted in an INTERFACE body" }
  26     subroutine bar()
  27       import foob ! { dg-error "Cannot IMPORT 'foob' from host scoping unit" }
  28     end subroutine bar
  29     subroutine test()
  30       import :: ! { dg-error "Expecting list of named entities" }
  31     end subroutine test
  32   end interface
  33 end program foo