gcc/testsuite/gfortran.dg/pr87907.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

! { dg-do compile }
! PR fortran/pr87907
! Original testcase contributed by Gerhard Stienmetz <gscfq at t-online dot de>
module m
   interface
      module function g(x) result(z)
         integer, intent(in) :: x
         integer, allocatable :: z
      end
   end interface
end

submodule(m) m2
   contains
      subroutine g(x)   ! { dg-error "mismatch in argument" }
      end
end

program p
   use m                ! { dg-error "has a type" }
   integer :: x = 3
   call g(x)            ! { dg-error "which is not consistent with" }
end