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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_20.f90] - Blame information for rev 308

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


! { dg-do compile }
! { dg-options "-fcheck=bounds" }
!
! PR fortran/43015
!
! Contributed by Dennis Wassel
!
SUBROUTINE foo(msg) BIND(C, name = "Foo")
  USE, INTRINSIC :: iso_c_binding
  IMPLICIT NONE
  CHARACTER (KIND=C_CHAR), INTENT (out) :: msg(*)
END SUBROUTINE foo
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-fcheck=bounds" }`
3			`!`
4			`! PR fortran/43015`
5			`!`
6			`! Contributed by Dennis Wassel`
7			`!`
8			`SUBROUTINE foo(msg) BIND(C, name = "Foo")`
9			`USE, INTRINSIC :: iso_c_binding`
10			`IMPLICIT NONE`
11			`CHARACTER (KIND=C_CHAR), INTENT (out) :: msg(*)`
12			`END SUBROUTINE foo`
13

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_20.f90] - Blame information for rev 308