1! RUN: %flang -E -fopenmp -fopenacc %s 2>&1 | FileCheck --strict-whitespace %s 2! CHECK: {{^}}!$OMP parallel default(shared) private(super_very_long_name_for_the_va& 3! CHECK-NEXT: {{^}}!$OMP&riable) 4! CHECK: {{^}}!$acc data copyin(super_very_long_name_for_the_variable, another_super& 5! CHECK-NEXT: {{^}}!$acc&_wordy_variable_to_test) 6! CHECK: {{^}}!$OMP something something 7! Test correct continuations in compiler directives and left-alignment of sentinels 8subroutine foo 9 integer :: super_very_long_name_for_the_variable 10 integer :: another_super_wordy_variable_to_test 11 12 super_very_long_name_for_the_variable = 42 13 another_super_wordy_variable_to_test = super_very_long_name_for_the_variable * 2 14 !$OMP parallel default(shared) private(super_very_long_name_for_the_variable) 15 !$omp end parallel 16 17 !$acc data copyin(super_very_long_name_for_the_variable, another_super_wordy_variable_to_test) 18 !$acc end data 19 20 !$OMP something something 21end subroutine foo 22