gcc/testsuite/gfortran.dg/pr68318_2.f90

   1 ! { dg-do compile }
   2 ! PR fortran/68318
   3 ! Original code submitted by Gerhard Steinmetz
   4 ! <gerhard dot steinmetz dot fortran at t-online dot de>
   5 !
   6 module m1
   7    implicit none
   8 contains
   9    subroutine s1
  10    entry e
  11    end
  12 end module
  13
  14 module m2
  15    use m1         ! { dg-error "(2)" }
  16    implicit none
  17 contains
  18    subroutine s2
  19    entry e        ! { dg-error "is already defined" }
  20    end
  21 end module
  22 ! { dg-prune-output "Cannot change attribute" }