1! { dg-do compile } 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 4! line 21. 5! 6! Test extracted from vec{int}.F90 of tonto. 7! 8module test 9 public n_elements_uncommon_with_ 10 interface n_elements_uncommon_with_ 11 module procedure n_elements_uncommon_with 12 end interface 13contains 14 pure function n_elements_uncommon_with(x) result(res) 15 integer(4), dimension(:), intent(in) :: x 16 integer(4) :: res 17 res = size (x, 1) 18 end function 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 22 res = x 23 end function 24end module test 25 use test 26 integer(4) :: z(4) 27 z = 1 28 print *, elements_uncommon_with (z) 29 print *, n_elements_uncommon_with_ (z) 30end 31