gcc/testsuite/gfortran.dg/invalid_procedure_name.f90

   1 ! { dg-do compile }
   2 ! PR25061 procedure name conflict
   3 ! Test case from PR.
   4 INTERFACE I1 ! { dg-error "" }
   5  SUBROUTINE S1(I)
   6  END SUBROUTINE S1
   7  SUBROUTINE S2(R)
   8  END SUBROUTINE S2
   9 END INTERFACE I1
  10 CONTAINS
  11  SUBROUTINE I1(I) ! { dg-error "already defined as a generic" }
  12  END SUBROUTINE I1 ! { dg-error "Expecting END PROGRAM statement" }
  13 END
  14