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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR fortran/42936
!
! Contributed by Mat Cross
!
PROGRAM PASSES_NULL
  CALL SUB(NULL())
CONTAINS
  SUBROUTINE SUB(I)
    INTEGER, POINTER :: I(:,:,:)
    IF (ASSOCIATED (I)) CALL ABORT ()
  END SUBROUTINE SUB
END PROGRAM PASSES_NULL

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/42936`
4			`!`
5			`! Contributed by Mat Cross`
6			`!`
7			`PROGRAM PASSES_NULL`
8			`CALL SUB(NULL())`
9			`CONTAINS`
10			`SUBROUTINE SUB(I)`
11			`INTEGER, POINTER :: I(:,:,:)`
12			`IF (ASSOCIATED (I)) CALL ABORT ()`
13			`END SUBROUTINE SUB`
14			`END PROGRAM PASSES_NULL`

Browse

Tools

Subversion Repositories openrisc

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