------- Comment #2 from jaydub66 at gmail dot com 2008-04-05 18:03 ------- (In reply to comment #1) > @@ -3649,4 +3667,5 @@ void copy_formal_args (gfc_symbol *dest, > formal_arg->sym->attr = curr_arg->sym->attr; > formal_arg->sym->ts = curr_arg->sym->ts; > + formal_arg->sym->as = curr_arg->sym->as;
I guess one should rather use: formal_arg->sym->as = gfc_copy_array_spec (curr_arg->sym->as); With this addition your test case works at least with an explicit-size array: integer a(1:3) With an assumed-size "integer a(:)" it still fails. Will try to find out more tomorrow. > module m > contains > subroutine one(a) > integer a(:) > print *, lbound(a), ubound(a), size(a) > if ((lbound(a,dim=1) /= 1) .or. (ubound(a,dim=1) /= 3)) & > call abort() > print *, a > if (any(a /= [1,2,3])) call abort() > end subroutine one > end module m > > program test > use m > implicit none > call foo(one) > contains > subroutine foo(f) > ! The following interface block is needed > ! for NAG f95 as it wrongly does not like > ! use-associated interfaces for PROCEDURE > ! (It is not needed for gfortran) > interface > subroutine one(a) > integer a(:) > end subroutine > end interface > procedure(one) :: f > call f([1,2,3]) > end subroutine foo > end program test > -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35830
