| ! { 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 |