Commit 83d45e1d by Frederik Harwath

Adapt libgomp acc_get_property.f90 test

The commit r10-6721-g8d1a1cb1 has changed
the name of the type that is used for the return value of the Fortran
acc_get_property function without adapting the test acc_get_property.f90.

2020-02-21  Frederik Harwath  <frederik@codesourcery.com>

	* testsuite/libgomp.oacc-fortran/acc_get_property.f90: Adapt to
	changes from 2020-02-19, i.e. use integer(c_size_t) instead of
	integer(acc_device_property) for the type of the return value of
	acc_get_property.
parent 91e50b2a
2020-02-21 Frederik Harwath <frederik@codesourcery.com>
* testsuite/libgomp.oacc-fortran/acc_get_property.f90: Adapt to
changes from 2020-02-19, i.e. use integer(c_size_t) instead of
integer(acc_device_property) for the type of the return value of
acc_get_property.
2020-02-19 Tobias Burnus <tobias@codesourcery.com> 2020-02-19 Tobias Burnus <tobias@codesourcery.com>
* .gitattributes: New; whitespace handling for Fortran's openacc_lib.h. * .gitattributes: New; whitespace handling for Fortran's openacc_lib.h.
......
...@@ -26,13 +26,14 @@ end program test ...@@ -26,13 +26,14 @@ end program test
! and do basic device independent validation. ! and do basic device independent validation.
subroutine print_device_properties (device_type) subroutine print_device_properties (device_type)
use openacc use openacc
use iso_c_binding, only: c_size_t
implicit none implicit none
integer, intent(in) :: device_type integer, intent(in) :: device_type
integer :: device_count integer :: device_count
integer :: device integer :: device
integer(acc_device_property) :: v integer(c_size_t) :: v
character*256 :: s character*256 :: s
device_count = acc_get_num_devices(device_type) device_count = acc_get_num_devices(device_type)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment