42 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc2module acc_common_decl3 implicit none4 integer a5 common /a_common/ a6!$acc declare create (/a_common/)7 data a/42/8end module acc_common_decl9 10module acc_common_another11 implicit none12 integer c, d13 common /a_common/ c, d14!$acc declare create (/a_common/)15end module acc_common_another16 17module acc_common_intermediate18 use acc_common_decl19 implicit none20 integer b21 common /b_common/ b22!$acc declare create (/b_common/)23end module acc_common_intermediate24 25program acc_decl_test26 use acc_common_intermediate27 use acc_common_another28 implicit none29 30 a = 131 b = 1032!$acc update device (/a_common/)33 a = 234!$acc update device (/b_common/)35 b = 2036!$acc update device (/a_common/)37 c = 338 d = 3039!ERROR: Could not find COMMON block 'a_common_bad' used in OpenACC directive40!$acc update device (/a_common_bad/)41end program42