! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenacc %s | FileCheck %s | |
! Test structure of the Pre-FIR tree with OpenACC declarative construct | |
! CHECK: Module m: module m | |
module m | |
real, dimension(10) :: x | |
! CHECK-NEXT: OpenACCDeclarativeConstruct | |
!$acc declare create(x) | |
end | |
! CHECK: End Module m |