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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_7.f03] - Blame information for rev 581

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


! { dg-do compile }
module x
  use iso_c_binding
  implicit none
contains
  function bar() bind(c) ! { dg-error "cannot be an array" }
    integer(c_int) :: bar(5)
  end function bar
 
  function my_string_func() bind(c) ! { dg-error "cannot be a character string" }
    character(kind=c_char, len=10) :: my_string_func
    my_string_func = 'my_string' // C_NULL_CHAR
  end function my_string_func
end module x
 
! { dg-final { cleanup-modules "x" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`module x`
3			`use iso_c_binding`
4			`implicit none`
5			`contains`
6			`function bar() bind(c) ! { dg-error "cannot be an array" }`
7			`integer(c_int) :: bar(5)`
8			`end function bar`
9
10			`function my_string_func() bind(c) ! { dg-error "cannot be a character string" }`
11			`character(kind=c_char, len=10) :: my_string_func`
12			`my_string_func = 'my_string' // C_NULL_CHAR`
13			`end function my_string_func`
14			`end module x`
15
16			`! { dg-final { cleanup-modules "x" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_7.f03] - Blame information for rev 581