gcc/testsuite/gfortran.dg/interface_48.f90

   1 ! { dg-do compile }
   2 ! PR 96073 - this used to cause an ICE.
   3 ! Test case by Jürgen Reuter.
   4
   5 module m
   6   implicit none
   7   private
   8
   9   interface
  10      subroutine GetXminM (set, xmin)
  11        integer, intent(in) :: set
  12        real, intent(out) :: xmin
  13      end subroutine GetXminM
  14   end interface
  15   interface
  16      subroutine foo(a)  ! { dg-warning "Type mismatch" }
  17        integer, intent(in) :: a
  18      end subroutine foo
  19   end interface
  20
  21 contains
  22
  23   subroutine s ()
  24     real :: xmin
  25     integer :: set
  26     external :: GetXminM, foo
  27     call GetXminM (set, xmin)
  28     call foo(1.0) ! { dg-warning "Type mismatch" }
  29   end subroutine s
  30
  31 end module m