22 lines
1009 B
Fortran
22 lines
1009 B
Fortran
! RUN: %flang -E -fopenmp -fopenacc %s 2>&1 | FileCheck --strict-whitespace %s
|
|
! CHECK: {{^}}!$OMP parallel default(shared) private(super_very_long_name_for_the_va&
|
|
! CHECK-NEXT: {{^}}!$OMP&riable)
|
|
! CHECK: {{^}}!$acc data copyin(super_very_long_name_for_the_variable, another_super&
|
|
! CHECK-NEXT: {{^}}!$acc&_wordy_variable_to_test)
|
|
! CHECK: {{^}}!$OMP something something
|
|
! Test correct continuations in compiler directives and left-alignment of sentinels
|
|
subroutine foo
|
|
integer :: super_very_long_name_for_the_variable
|
|
integer :: another_super_wordy_variable_to_test
|
|
|
|
super_very_long_name_for_the_variable = 42
|
|
another_super_wordy_variable_to_test = super_very_long_name_for_the_variable * 2
|
|
!$OMP parallel default(shared) private(super_very_long_name_for_the_variable)
|
|
!$omp end parallel
|
|
|
|
!$acc data copyin(super_very_long_name_for_the_variable, another_super_wordy_variable_to_test)
|
|
!$acc end data
|
|
|
|
!$OMP something something
|
|
end subroutine foo
|