From 1bc5aee63eb72b341f506ad058502cd0361f0d10 Mon Sep 17 00:00:00 2001 From: Ben Cheng Date: Tue, 25 Mar 2014 22:37:19 -0700 Subject: Initial checkin of GCC 4.9.0 from trunk (r208799). Change-Id: I48a3c08bb98542aa215912a75f03c0890e497dba --- gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_18.f90 | 61 ++++++++++++++++++++++ 1 file changed, 61 insertions(+) create mode 100644 gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_18.f90 (limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_18.f90') diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_18.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_18.f90 new file mode 100644 index 000000000..c42161351 --- /dev/null +++ b/gcc-4.9/gcc/testsuite/gfortran.dg/proc_decl_18.f90 @@ -0,0 +1,61 @@ +! { dg-do run } +! +! PR 36322/36463 +! +! Contributed by Janus Weil + +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 + +abstract interface + function abs_fun(x,sz) + integer,intent(in) :: x(:) + interface + pure integer function sz(b) + integer,intent(in) :: b(:) + end function + end interface + integer :: abs_fun(sz(x)) + end function +end interface + +procedure(abs_fun) :: p + +integer :: k,j(3),i(3) = (/1,2,3/) + +j = p(i,mysize) + +do k=1,mysize(i) + if (j(k) /= 2*i(k)) call abort() +end do + +end + + function p(y,asz) + implicit none + integer,intent(in) :: y(:) + interface + pure integer function asz(c) + integer,intent(in) :: c(:) + end function + end interface + integer :: p(asz(y)) + integer l + do l=1,asz(y) + p(l) = y(l)*2 + end do + end function -- cgit v1.2.3