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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-fcheck=all -std=f2003 -fall-intrinsics" }
! { dg-shouldfail "Pointer actual argument 'ptr' is not associated" }
!
! PR fortran/49255
!
! Valid F2008, invalid F95/F2003.
!
integer,pointer :: ptr => null()
call foo (ptr)
contains
  subroutine foo (x)
    integer, optional :: x
    if (present (x)) call abort ()
  end subroutine foo
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-fcheck=all -std=f2003 -fall-intrinsics" }`
3			`! { dg-shouldfail "Pointer actual argument 'ptr' is not associated" }`
4			`!`
5			`! PR fortran/49255`
6			`!`
7			`! Valid F2008, invalid F95/F2003.`
8			`!`
9			`integer,pointer :: ptr => null()`
10			`call foo (ptr)`
11			`contains`
12			`subroutine foo (x)`
13			`integer, optional :: x`
14			`if (present (x)) call abort ()`
15			`end subroutine foo`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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