gcc/testsuite/gfortran.dg/pr68318_1.f90

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