flang/test/Preprocessing/pp132.f90

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