data-already-8.f 311 B

1234567891011121314151617
  1. ! { dg-skip-if "" { *-*-* } { "*" } { "-DACC_MEM_SHARED=0" } }
  2. IMPLICIT NONE
  3. INTEGER I
  4. !$ACC DATA CREATE (I)
  5. !$ACC PARALLEL COPYIN (I)
  6. I = 0
  7. !$ACC END PARALLEL
  8. !$ACC END DATA
  9. END
  10. ! { dg-shouldfail "" }
  11. ! { dg-output "Trying to map into device .* object when .* is already mapped" }