blob: 05fd56703cabebeb8c62274d4c0bbcbce6438250 (
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
30
31
32
33
34
35
36
37
38
39
|
! { dg-do compile }
! PR fortran/109846
! CLASS pointer function result in variable definition context
module foo
implicit none
type :: parameter_list
contains
procedure :: sublist, sublist_nores
end type
contains
function sublist (this) result (slist)
class(parameter_list), intent(inout) :: this
class(parameter_list), pointer :: slist
allocate (slist)
end function
function sublist_nores (this)
class(parameter_list), intent(inout) :: this
class(parameter_list), pointer :: sublist_nores
allocate (sublist_nores)
end function
end module
program example
use foo
implicit none
type(parameter_list) :: plist
call sub1 (plist%sublist())
call sub1 (plist%sublist_nores())
call sub2 (plist%sublist())
call sub2 (plist%sublist_nores())
contains
subroutine sub1 (plist)
type(parameter_list), intent(inout) :: plist
end subroutine
subroutine sub2 (plist)
type(parameter_list) :: plist
end subroutine
end program
|