24 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck --strict-whitespace %s2! CHECK: {{^}}!$OMP parallel default(shared) private(super_very_long_name_for_the_va&3! CHECK-NEXT: {{^}}!$OMP&riable)4! CHECK: {{^}}!$omp end parallel5! CHECK: {{^}}!$acc data copyin(super_very_long_name_for_the_variable, another_super&6! CHECK-NEXT: {{^}}!$acc&_wordy_variable_to_test)7! CHECK: {{^}}!$acc end data8! CHECK: {{^}}!$OMP something something9! Test correct continuations in compiler directives and left-alignment of sentinels10subroutine foo11 integer :: super_very_long_name_for_the_variable12 integer :: another_super_wordy_variable_to_test13 14 super_very_long_name_for_the_variable = 4215 another_super_wordy_variable_to_test = super_very_long_name_for_the_variable * 216 !$OMP parallel default(shared) private(super_very_long_name_for_the_variable)17 !$omp end parallel18 19 !$acc data copyin(super_very_long_name_for_the_variable, another_super_wordy_variable_to_test)20 !$acc end data21 22 !$OMP something something23end subroutine foo24