URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_function_actual_2.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! Tests the fix for PR31200, in which the target x would
! not be associated with p
!
! COntributed by Joost VandeVondele 
!
  REAL,TARGET :: x
  CALL s3(f(x))
CONTAINS
  FUNCTION f(a)
    REAL,POINTER :: f
    REAL,TARGET :: a
    f => a
  END FUNCTION
  SUBROUTINE s3(targ)
    REAL,TARGET :: targ
    REAL,POINTER :: p
    p => targ
    IF (.NOT. ASSOCIATED(p,x)) CALL ABORT()
  END SUBROUTINE
END
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Tests the fix for PR31200, in which the target x would`
3			`! not be associated with p`
4			`!`
5			`! COntributed by Joost VandeVondele`
6			`!`
7			`REAL,TARGET :: x`
8			`CALL s3(f(x))`
9			`CONTAINS`
10			`FUNCTION f(a)`
11			`REAL,POINTER :: f`
12			`REAL,TARGET :: a`
13			`f => a`
14			`END FUNCTION`
15			`SUBROUTINE s3(targ)`
16			`REAL,TARGET :: targ`
17			`REAL,POINTER :: p`
18			`p => targ`
19			`IF (.NOT. ASSOCIATED(p,x)) CALL ABORT()`
20			`END SUBROUTINE`
21			`END`
22

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pointer_function_actual_2.f90] - Blame information for rev 801