blob: f82f505e73409489f196bd250fbb65dacfc8f098 (
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
|
! { dg-do run }
! PR fortran/100551 - Passing return value to class(*) dummy argument
program p
implicit none
integer :: result
result = 1
result = test ( (result)) ! works
if (result /= 1) stop 1
result = test (int (result)) ! issue 1
! write(*,*) result
if (result /= 1) stop 2
result = test (f (result)) ! issue 2
! write(*,*) result
if (result /= 2) stop 3
contains
integer function test(x)
class(*), intent(in) :: x
select type (x)
type is (integer)
test = x
class default
test = -1
end select
end function test
integer function f(x)
integer, intent(in) :: x
f = 2*x
end function f
end program
|
