2 ! Test of the fix of PR27089, where gfortran was unable to resolve the
3 ! type of n_elements_uncommon_with_ in the specification expression on
6 ! Test extracted from vec{int}.F90 of tonto.
9 public n_elements_uncommon_with_
10 interface n_elements_uncommon_with_
11 module procedure n_elements_uncommon_with
14 pure
function n_elements_uncommon_with(x
) result(res
)
15 integer(4), dimension(:), intent(in
) :: x
19 pure
function elements_uncommon_with(x
) result(res
)
20 integer(4), dimension(:), intent(in
) :: x
21 integer(4), dimension(n_elements_uncommon_with_(x
)) :: res
28 print *, elements_uncommon_with (z
)
29 print *, n_elements_uncommon_with_ (z
)
31 ! { dg-final { cleanup-modules "test" } }