[gcc/devel/ranger] Adapt libgomp acc_get_property.f90 test

Aldy Hernandez aldyh@gcc.gnu.org
Wed Jun 17 19:05:35 GMT 2020


https://gcc.gnu.org/g:83d45e1d7155a5a600d8a4aa01aca00d3c6c2d3a

commit 83d45e1d7155a5a600d8a4aa01aca00d3c6c2d3a
Author: Frederik Harwath <frederik@codesourcery.com>
Date:   Fri Feb 21 15:26:02 2020 +0100

    Adapt libgomp acc_get_property.f90 test
    
    The commit r10-6721-g8d1a1cb1b816381bf60cb1211c93b8eba1fe1472 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.

Diff:
---
 libgomp/ChangeLog                                           | 7 +++++++
 libgomp/testsuite/libgomp.oacc-fortran/acc_get_property.f90 | 3 ++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 3c640c7350b..bff3ae58c9a 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,10 @@
+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>
 
 	* .gitattributes: New; whitespace handling for Fortran's openacc_lib.h.
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/acc_get_property.f90 b/libgomp/testsuite/libgomp.oacc-fortran/acc_get_property.f90
index 80ae292f41f..1af7cc3b988 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/acc_get_property.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/acc_get_property.f90
@@ -26,13 +26,14 @@ end program test
 ! and do basic device independent validation.
 subroutine print_device_properties (device_type)
   use openacc
+  use iso_c_binding, only: c_size_t
   implicit none
 
   integer, intent(in) :: device_type
 
   integer :: device_count
   integer :: device
-  integer(acc_device_property) :: v
+  integer(c_size_t) :: v
   character*256 :: s
 
   device_count = acc_get_num_devices(device_type)


More information about the Gcc-cvs mailing list