18 lines
820 B
Fortran
18 lines
820 B
Fortran
! RUN: %flang -E -fopenmp -fopenacc %s 2>&1 | FileCheck %s
|
|
! CHECK: !$OMP parallel default(shared) private(super_very_long_name_for_the_va&
|
|
! CHECK: !$OMP&riable)
|
|
! CHECK: !$acc data copyin(super_very_long_name_for_the_variable, another_super&
|
|
! CHECK: !$acc&_wordy_variable_to_test)
|
|
! Test correct continuations in compiler directives
|
|
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
|
|
end subroutine foo
|