data-already-7.f 257 B

123456789101112131415
  1. ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
  2. IMPLICIT NONE
  3. INCLUDE "openacc_lib.h"
  4. INTEGER I
  5. !$ACC ENTER DATA CREATE (I)
  6. CALL ACC_CREATE (I)
  7. END
  8. ! { dg-shouldfail "" }
  9. ! { dg-output "already mapped to" }