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

Subversion Repositories openrisc

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

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


! { dg-do compile }
module c_assoc_2
  use, intrinsic :: iso_c_binding, only: c_ptr, c_associated
 
contains
  subroutine sub0(my_c_ptr) bind(c)
    type(c_ptr), value :: my_c_ptr
    type(c_ptr), pointer :: my_c_ptr_2
    integer :: my_integer
 
    if(.not. c_associated(my_c_ptr)) then
       call abort()
    end if
 
    if(.not. c_associated(my_c_ptr, my_c_ptr)) then
       call abort()
    end if
 
    if(.not. c_associated(my_c_ptr, my_c_ptr, my_c_ptr)) then ! { dg-error "More actual than formal arguments" }
       call abort()
    end if
 
    if(.not. c_associated()) then ! { dg-error "Missing argument" }
       call abort()
    end if ! { dg-error "Expecting END SUBROUTINE" }
 
    if(.not. c_associated(my_c_ptr_2)) then
       call abort()
    end if
 
    if(.not. c_associated(my_integer)) then ! { dg-error "Type mismatch" }
       call abort()
    end if
  end subroutine sub0
 
end module c_assoc_2

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`module c_assoc_2`
3			`use, intrinsic :: iso_c_binding, only: c_ptr, c_associated`
4
5			`contains`
6			`subroutine sub0(my_c_ptr) bind(c)`
7			`type(c_ptr), value :: my_c_ptr`
8			`type(c_ptr), pointer :: my_c_ptr_2`
9			`integer :: my_integer`
10
11			`if(.not. c_associated(my_c_ptr)) then`
12			`call abort()`
13			`end if`
14
15			`if(.not. c_associated(my_c_ptr, my_c_ptr)) then`
16			`call abort()`
17			`end if`
18
19			`if(.not. c_associated(my_c_ptr, my_c_ptr, my_c_ptr)) then ! { dg-error "More actual than formal arguments" }`
20			`call abort()`
21			`end if`
22
23			`if(.not. c_associated()) then ! { dg-error "Missing argument" }`
24			`call abort()`
25			`end if ! { dg-error "Expecting END SUBROUTINE" }`
26
27			`if(.not. c_associated(my_c_ptr_2)) then`
28			`call abort()`
29			`end if`
30
31			`if(.not. c_associated(my_integer)) then ! { dg-error "Type mismatch" }`
32			`call abort()`
33			`end if`
34			`end subroutine sub0`
35
36			`end module c_assoc_2`

Browse

Tools

Subversion Repositories openrisc

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