Hi Thomas,
On 24.10.22 22:33, Thomas Schwinge wrote:
Given the following reduced code, from a bigger test case that I'm
currently writing:
integer, allocatable :: ar(:,:,:)
logical :: l
l = acc_is_present (ar)
...
360 function acc_is_present_array_h (a)
361
Hi!
Given the following reduced code, from a bigger test case that I'm
currently writing:
program main
use openacc
implicit none
integer, allocatable :: ar(:,:,:)
logical :: l
if (allocated (ar)) stop 10 ! just for illustration
l = acc_is_present (ar)
