blob: 1e4bb08b320d7068910d1c71897614916f96c084 (
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 compile }
! Test of the fix of PR27089, where gfortran was unable to resolve the
! type of n_elements_uncommon_with_ in the specification expression on
! line 21.
!
! Test extracted from vec{int}.F90 of tonto.
!
module test
public n_elements_uncommon_with_
interface n_elements_uncommon_with_
module procedure n_elements_uncommon_with
end interface
contains
pure function n_elements_uncommon_with(x) result(res)
integer(4), dimension(:), intent(in) :: x
integer(4) :: res
res = size (x, 1)
end function
pure function elements_uncommon_with(x) result(res)
integer(4), dimension(:), intent(in) :: x
integer(4), dimension(n_elements_uncommon_with_(x)) :: res
res = x
end function
end module test
use test
integer(4) :: z(4)
z = 1
print *, elements_uncommon_with (z)
print *, n_elements_uncommon_with_ (z)
end
|
