12 lines
301 B
Fortran
12 lines
301 B
Fortran
|
! 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
|