6 lines
131 B
Fortran
6 lines
131 B
Fortran
! RUN: bbc -fopenmp -emit-fir -o - %s | FileCheck %s
|
|
|
|
subroutine sample()
|
|
! CHECK: omp.barrier
|
|
!$omp barrier
|
|
end subroutine sample
|