xref: /llvm-project/flang/test/Preprocessing/pp132.f90 (revision 3c3094b60d3587b1db8ef35b3bf54e73ac5894d9)
1*3c3094b6Smacurtis-amd! RUN: %flang -E -fopenmp -fopenacc %s 2>&1 | FileCheck --strict-whitespace %s
2*3c3094b6Smacurtis-amd! CHECK:       {{^}}!$OMP   parallel default(shared) private(super_very_long_name_for_the_va&
3*3c3094b6Smacurtis-amd! CHECK-NEXT:  {{^}}!$OMP&riable)
4*3c3094b6Smacurtis-amd! CHECK:       {{^}}!$acc   data copyin(super_very_long_name_for_the_variable, another_super&
5*3c3094b6Smacurtis-amd! CHECK-NEXT:  {{^}}!$acc&_wordy_variable_to_test)
6*3c3094b6Smacurtis-amd! CHECK:       {{^}}!$OMP          something something
7*3c3094b6Smacurtis-amd! Test correct continuations in compiler directives and left-alignment of sentinels
8889c7c8eSDaniil Dudkinsubroutine foo
9889c7c8eSDaniil Dudkin  integer :: super_very_long_name_for_the_variable
10889c7c8eSDaniil Dudkin  integer :: another_super_wordy_variable_to_test
11889c7c8eSDaniil Dudkin
12889c7c8eSDaniil Dudkin  super_very_long_name_for_the_variable = 42
13889c7c8eSDaniil Dudkin  another_super_wordy_variable_to_test = super_very_long_name_for_the_variable * 2
14889c7c8eSDaniil Dudkin  !$OMP parallel default(shared) private(super_very_long_name_for_the_variable)
15889c7c8eSDaniil Dudkin  !$omp end parallel
16889c7c8eSDaniil Dudkin
17889c7c8eSDaniil Dudkin  !$acc data copyin(super_very_long_name_for_the_variable, another_super_wordy_variable_to_test)
18889c7c8eSDaniil Dudkin  !$acc end data
19*3c3094b6Smacurtis-amd
20*3c3094b6Smacurtis-amd         !$OMP something something
21889c7c8eSDaniil Dudkinend subroutine foo
22