12 lines
315 B
Fortran
12 lines
315 B
Fortran
|
! RUN: bbc -emit-fir %s -o - | FileCheck %s
|
||
|
|
|
||
|
|
! Test TARGET attributes on a definition of a global symbol.
|
||
|
|
! CHECK: fir.global @_QMtarget_modEx target : f32 {
|
||
|
|
! CHECK: %[[init:.*]] = fir.zero_bits f32
|
||
|
|
! CHECK: fir.has_value %[[init]] : f32
|
||
|
|
! CHECK: }
|
||
|
|
|
||
|
|
module target_mod
|
||
|
|
real, target :: x
|
||
|
|
end module target_mod
|