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

Subversion Repositories openrisc

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

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


! { dg-do compile }
 
! PR fortran/36592
!
! Procedure Pointers inside COMMON blocks.
!
! Contributed by Tobias Burnus .
 
abstract interface
 subroutine foo() bind(C)
 end subroutine foo
end interface
 
procedure(foo), pointer, bind(C) :: proc
common /com/ proc,r
 
common s
call s()  ! { dg-error "PROCEDURE attribute conflicts with COMMON attribute" }
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`! PR fortran/36592`
4			`!`
5			`! Procedure Pointers inside COMMON blocks.`
6			`!`
7			`! Contributed by Tobias Burnus .`
8
9			`abstract interface`
10			`subroutine foo() bind(C)`
11			`end subroutine foo`
12			`end interface`
13
14			`procedure(foo), pointer, bind(C) :: proc`
15			`common /com/ proc,r`
16
17			`common s`
18			`call s() ! { dg-error "PROCEDURE attribute conflicts with COMMON attribute" }`
19
20			`end`

Browse

Tools

Subversion Repositories openrisc

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