gcc/testsuite/gfortran.dg/interface_22.f90

   1 ! { dg-do compile }
   2 !
   3 ! This is a check for error recovery: we used to ICE in various places, or
   4 ! emit bogus error messages (PR 25252)
   5 !
   6 module foo
   7   interface bar
   8     module procedure X, Y, ! { dg-error "Syntax error in MODULE PROCEDURE statement" }
   9   end interface bar
  10 end module
  11
  12 module g
  13   interface i
  14     module procedure sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }
  15   end interface i
  16 end module g
  17
  18 module gswap
  19   type points
  20     real :: x, y
  21   end type points
  22   interface swap
  23     module procedure sreal, schar, sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }
  24   end interface swap
  25 end module gswap
  26
  27 ! { dg-final { cleanup-modules "foo g gswap" } }
  28