2 ! PR37926 - the interface did not transfer the formal
3 ! argument list for the call to 'asz' in the specification of 'p'.
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
9 pure integer function mysize(a)
10 integer,intent(in) :: a(:)
19 integer :: i(3) = (/1,2,3/)
21 if (len(str) .ne. 3) call abort
22 if (str .ne. "BCD") call abort
28 pure integer function asz(c)
29 integer,intent(in) :: c(:)
35 p(i:i) = achar(iachar('A')+y(i))
39 ! { dg-final { cleanup-modules "m" } }