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

Subversion Repositories openrisc

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

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


! { dg-do run }
! { dg-options "-fcheck=all -std=f2008 -fall-intrinsics" }
!
! 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=f2008 -fall-intrinsics" }`
3			`!`
4			`! PR fortran/49255`
5			`!`
6			`! Valid F2008, invalid F95/F2003.`
7			`!`
8			`integer,pointer :: ptr => null()`
9			`call foo (ptr)`
10			`contains`
11			`subroutine foo (x)`
12			`integer, optional :: x`
13			`if (present (x)) call abort ()`
14			`end subroutine foo`
15			`end`

Browse

Tools

Subversion Repositories openrisc

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