OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR testsuite/31240 (gfortran.dg/pointer_intent_1.f90 failure at -O0)

Browse Source 
2007-04-11  Tobias Burnus  <burnus@net-b.de>

       PR testsuite/31240
       * gfortran.dg/pointer_intent_1.f90: Fix test.

From-SVN: r123712
This commit is contained in:
Tobias Burnus 2007-04-11 09:28:49 +02:00 committed by Tobias Burnus
parent ffd3439269
commit 2b3fd25f63
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

10
gcc/testsuite/gfortran.dg/pointer_intent_1.f90
View File

@ -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