blob: d0faef93ba76c21bb95686d4737ffa365c786c0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
!{ dg-do run }
!{ dg-additional-sources add_sources/submodule_1_sub.f90 }
! Separating the module and the submodule is needed to show the error.
! Having all code pieces in one file does not show the error.
module pr80235
implicit none
private
public :: test, var
type T
integer :: v
end type T
interface
module subroutine test()
end subroutine
end interface
type(T) :: var[*]
end module pr80235
|
