From 2b3fd25f6326ebefdb7dfce77f88790ab509c820 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 11 Apr 2007 09:28:49 +0200 Subject: [PATCH] re PR testsuite/31240 (gfortran.dg/pointer_intent_1.f90 failure at -O0) 2007-04-11 Tobias Burnus PR testsuite/31240 * gfortran.dg/pointer_intent_1.f90: Fix test. From-SVN: r123712 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pointer_intent_1.f90 | 10 ++++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f2e261c..0ddbb20 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-04-11 Tobias Burnus + + PR testsuite/31240 + * gfortran.dg/pointer_intent_1.f90: Fix test. + 2007-04-10 Eric Christopher * lib/target-supports.exp diff --git a/gcc/testsuite/gfortran.dg/pointer_intent_1.f90 b/gcc/testsuite/gfortran.dg/pointer_intent_1.f90 index 882c6a5..1bdab24 100644 --- a/gcc/testsuite/gfortran.dg/pointer_intent_1.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_intent_1.f90 @@ -1,4 +1,4 @@ -! { dg-run } +! { dg-do run } ! { dg-options "-std=f2003 -fall-intrinsics" } ! Pointer intent test ! PR fortran/29624 @@ -21,7 +21,11 @@ program test deallocate(p) nullify(p) call a(p,t) + t2%x = 5 + allocate(t2%point) + t2%point = 42 call nonpointer(t2) + if(t2%point /= 7) call abort() contains subroutine a(p,t) integer, pointer,intent(in) :: p @@ -60,12 +64,14 @@ contains subroutine foo(comp) type(myT), intent(inout) :: comp if(comp%x /= -15) call abort() - !if(comp%point /= 27) call abort() + if(comp%point /= 27) call abort() comp%x = 32 comp%point = -98 end subroutine foo subroutine nonpointer(t) type(myT), intent(in) :: t + if(t%x /= 5 ) call abort() + if(t%point /= 42) call abort() t%point = 7 end subroutine nonpointer end program -- 2.7.4