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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_7.f03] - Blame information for rev 858

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


! { dg-do run }
! { dg-additional-sources c_ptr_tests_7_driver.c }
module c_ptr_tests_7
  use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr
 
contains
  function func0() bind(c)
    type(c_ptr) :: func0
    func0 = c_null_ptr
  end function func0
end module c_ptr_tests_7
! { dg-final { cleanup-modules "c_ptr_tests_7" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-additional-sources c_ptr_tests_7_driver.c }`
3			`module c_ptr_tests_7`
4			`use, intrinsic :: iso_c_binding, only: c_ptr, c_null_ptr`
5
6			`contains`
7			`function func0() bind(c)`
8			`type(c_ptr) :: func0`
9			`func0 = c_null_ptr`
10			`end function func0`
11			`end module c_ptr_tests_7`
12			`! { dg-final { cleanup-modules "c_ptr_tests_7" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [c_ptr_tests_7.f03] - Blame information for rev 858