diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-11 07:28:49 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-11 07:28:49 +0000 |
| commit | 523a666bd23cdb8d50ab089781016e23f0803849 (patch) | |
| tree | 3ec3e20b314598450878c9865bebca684d6d8ecd | |
| parent | 16f4e759f176f2a62f1e1c10a641fd1e977938d1 (diff) | |
| download | ppe42-gcc-523a666bd23cdb8d50ab089781016e23f0803849.tar.gz ppe42-gcc-523a666bd23cdb8d50ab089781016e23f0803849.zip | |
2007-04-11 Tobias Burnus <burnus@net-b.de>
PR testsuite/31240
* gfortran.dg/pointer_intent_1.f90: Fix test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123712 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 f2e261c8a4f..0ddbb20735b 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 882c6a5f903..1bdab241c18 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 |
