Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dummy_procedure_3.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR37926 - the interface did not transfer the formal ! argument list for the call to 'asz' in the specification of 'p'. ! ! Contributed by Janus Weil <janus@gcc.gnu.org> ! module m contains pure integer function mysize(a) integer,intent(in) :: a(:) mysize = size(a) end function end module program prog use m implicit none character(3) :: str integer :: i(3) = (/1,2,3/) str = p(i,mysize) if (len(str) .ne. 3) call abort if (str .ne. "BCD") call abort contains function p(y,asz) implicit none integer :: y(:) interface pure integer function asz(c) integer,intent(in) :: c(:) end function end interface character(asz(y)) p integer i do i=1,asz(y) p(i:i) = achar(iachar('A')+y(i)) end do end function end