From 1d3a84ce0338d5002672a643ca506224cd944298 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 10 Nov 2010 19:04:04 +0100 Subject: re PR fortran/46411 (MOVE_ALLOC wrongly rejected as impure) 2010-11-10 Tobias Burnus PR fortran/46411 * intrinsic.c (gfc_intrinsic_sub_interface): Check for attr.pure and not for attr.elemental. * intrinsic.texi (move_alloc): Document as being pure. 2010-11-10 Tobias Burnus PR fortran/46411 * gfortran.dg/intrinsic_7.f90: New. From-SVN: r166550 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/intrinsic_7.f90 | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/intrinsic_7.f90 (limited to 'gcc/testsuite') diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5143d15..ba0a4c1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-11-10 Tobias Burnus + + PR fortran/46411 + * gfortran.dg/intrinsic_7.f90: New. + 2010-11-10 Rainer Orth * g++.dg/abi/rtti3.C: Scan for .weakext on alpha*-dec-osf*. diff --git a/gcc/testsuite/gfortran.dg/intrinsic_7.f90 b/gcc/testsuite/gfortran.dg/intrinsic_7.f90 new file mode 100644 index 0000000..69bca66 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/intrinsic_7.f90 @@ -0,0 +1,13 @@ +! { dg-do compile } +! +! PR fortran/46411 +! +! MOVE_ALLOC and other non-elemental but pure +! procedures where regarded as impure. +! + +pure subroutine test() + integer, allocatable :: a, b + allocate(a,b) + call move_alloc(a,b) +end subroutine test -- cgit v1.1