flang/test/Preprocessing/pp132.f90

   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
   8 subroutine 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
  21 end subroutine foo