This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
recent change causes a regression
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org
- Date: Sun, 23 May 2004 09:49:48 -0700
- Subject: recent change causes a regression
Paul,
2004-05-23 Paul Brook <paul@codesourcery.com>
PR fortran/13773
* expr.c (restricted_args): Remove redundant checks/argument.
(external_spec_function): Update to match.
(restricted_intrinsic): Rewrite.
I think your restrict_intrinsic rewrite is causing a regression.
The following compiles fine with NAG's compiler and it compiled
fine before the above commit.
kargl[256] cat xx.f90
subroutine box_muller_array(x1)
implicit none
integer, parameter :: knd = kind(1.e0)
real(knd), dimension(0:), intent(out) :: x1
real(knd), dimension(0:size(x1)) :: x3
x3=x1
end subroutine box_muller_array
kargl[257] gfc -c xx.f90
In file xx.f90:5
real(knd), dimension(0:size(x1)) :: x3
1
Error: Dummy argument 'x1' at (1) cannot be INTENT(OUT)
--
Steve