Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/specification_type_resolution_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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