Home
last modified time | relevance | path

Searched refs:c_cptr (Results 1 – 25 of 53) sorted by relevance

123

/dports/lang/gcc12-devel/gcc-12-20211205/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:) local
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:) local
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-1.f90250 c_cptr = c_loc(cc)
257 call copy3_scalar(c_cptr, c_dptr)
265 call copy3_scalar(c_cptr, c_dptr)
675 c_cptr = c_loc(cc)
679 if (.not.c_associated(c_cptr) .or. .not.c_associated(c_dptr)) stop 96
684 if (.not.c_associated(c_cptr) .or. .not.c_associated(c_dptr)) stop 100
688 call copy3_scalar(c_cptr, c_dptr)
696 call copy3_scalar(c_cptr, c_dptr)
1137 c_cptr = c_loc(cc)
1144 call copy3_scalar(c_cptr, c_dptr)
[all …]
H A Duse_device_addr-2.f90250 c_cptr = c_loc(cc)
257 call copy3_scalar(c_cptr, c_dptr)
265 call copy3_scalar(c_cptr, c_dptr)
675 c_cptr = c_loc(cc)
679 if (.not.c_associated(c_cptr) .or. .not.c_associated(c_dptr)) stop 96
684 if (.not.c_associated(c_cptr) .or. .not.c_associated(c_dptr)) stop 100
688 call copy3_scalar(c_cptr, c_dptr)
696 call copy3_scalar(c_cptr, c_dptr)
1137 c_cptr = c_loc(cc)
1144 call copy3_scalar(c_cptr, c_dptr)
[all …]
/dports/lang/gcc11/gcc-11.2.0/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:) local
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:) local
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-2.f90250 c_cptr = c_loc(cc)
257 call copy3_scalar(c_cptr, c_dptr)
265 call copy3_scalar(c_cptr, c_dptr)
675 c_cptr = c_loc(cc)
679 if (.not.c_associated(c_cptr) .or. .not.c_associated(c_dptr)) stop 96
684 if (.not.c_associated(c_cptr) .or. .not.c_associated(c_dptr)) stop 100
688 call copy3_scalar(c_cptr, c_dptr)
696 call copy3_scalar(c_cptr, c_dptr)
1137 c_cptr = c_loc(cc)
1144 call copy3_scalar(c_cptr, c_dptr)
[all …]
/dports/lang/gcc10/gcc-10.3.0/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:)
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:)
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
/dports/lang/gcc11-devel/gcc-11-20211009/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:) local
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:) local
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
/dports/devel/avr-gcc/gcc-10.2.0/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:) local
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:) local
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
/dports/lang/gcc10-devel/gcc-10-20211008/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:) local
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:) local
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
/dports/misc/cxx_atomics_pic/gcc-11.2.0/libgomp/testsuite/libgomp.fortran/
H A Duse_device_ptr-optional-3.f9094 type(c_ptr), pointer :: c_cptr(:), c_cptr_in(:) local
103 call c_f_pointer(p_cptr, c_cptr, shape=[1])
105 call run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz)
108 subroutine run_target(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
110 type(c_ptr) :: c_cptr(:), c_cptr_in(:) local
113 call target_fn(c_u(1), c_v(1), c_w(1), c_x, c_y(1), c_z, c_cptr(1), c_cptr_in(1), Nx, Nz)
117 subroutine target_fn(c_u, c_v, c_w, c_x, c_y, c_z, c_cptr, c_cptr_in, Nx, Nz) argument
120 type(c_ptr), value :: c_cptr, c_cptr_in
131 if (.not. c_associated (c_cptr)) stop 38
133 if (.not. c_associated (c_cptr, c_loc(c_x))) stop 40
[all …]
H A Duse_device_addr-3.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
H A Duse_device_addr-4.f90125 type(c_ptr) :: c_aptr, c_bptr, c_cptr, c_dptr, c_eptr, c_fptr local
196 c_cptr = c_loc(cc)
203 call copy3_array(c_cptr, c_dptr, N)
211 call copy3_array(c_cptr, c_dptr, N)
464 c_cptr = c_loc(cc)
477 call copy3_array(c_cptr, c_dptr, N)
485 call copy3_array(c_cptr, c_dptr, N)
691 type(c_ptr) :: c_cptr, c_dptr, c_eptr, c_fptr local
703 c_cptr = c_loc(cc)
710 call copy3_array(c_cptr, c_dptr, N)
[all …]
/dports/lang/mono/mono-5.10.1.57/mcs/jay/
H A Derror.c116 unterminated_comment(c_lineno, c_line, c_cptr) in unterminated_comment() argument
119 char *c_cptr;
123 print_pos(c_line, c_cptr);
164 illegal_character(c_cptr) in illegal_character() argument
165 char *c_cptr; in illegal_character()
169 print_pos(line, c_cptr);

123