diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-04-11 09:28:49 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-04-11 09:28:49 +0200 |
| commit | 2b3fd25f6326ebefdb7dfce77f88790ab509c820 (patch) | |
| tree | 3ec3e20b314598450878c9865bebca684d6d8ecd | |
| parent | ffd343926959a175219f705631f6c649bdfdff2a (diff) | |
| download | gcc-2b3fd25f6326ebefdb7dfce77f88790ab509c820.zip gcc-2b3fd25f6326ebefdb7dfce77f88790ab509c820.tar.gz gcc-2b3fd25f6326ebefdb7dfce77f88790ab509c820.tar.bz2 | |
re PR testsuite/31240 (gfortran.dg/pointer_intent_1.f90 failure at -O0)
2007-04-11 Tobias Burnus <burnus@net-b.de>
PR testsuite/31240
* gfortran.dg/pointer_intent_1.f90: Fix test.
From-SVN: r123712
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <burnus@net-b.de> + + PR testsuite/31240 + * gfortran.dg/pointer_intent_1.f90: Fix test. + 2007-04-10 Eric Christopher <echristo@apple.com> * 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 |