32 lines
939 B
Fortran
32 lines
939 B
Fortran
! { 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
|
|
! { dg-final { cleanup-modules "test" } }
|