blob: fed5914daba80eea7913b5548586f43c6809e06d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! PR fortran/93423 - ICE on invalid with argument list for module procedure
module t
type :: b
contains
procedure :: p => bp
end type b
interface
module function bp(s)
class(b), intent(inout) :: s
integer, pointer :: bp
end function
end interface
end module t
submodule (t) ts
contains
module procedure bp(s) ! { dg-error "must be in a generic module interface" }
end procedure bp ! { dg-error "Expecting END SUBMODULE statement" }
end submodule ts
|
