23 lines · plain
1! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s2 3module m4 type device_array5 real(kind=8), allocatable, dimension(:), device :: ad6 real(kind=8), pointer, dimension(:), device :: pd7 end type8 9 type(device_array), allocatable :: da(:)10end module11 12! CHECK-LABEL: fir.global linkonce_odr @_QMmE.c.device_array13! CHECK: fir.insert_value %{{.*}}, %c6{{.*}}, ["genre"14! CHECK: fir.insert_value %{{.*}}, %c5{{.*}}, ["genre"15 16program main17 use m18 type(device_array) :: local19end20 21! CHECK-LABEL: func.func @_QQmain()22! CHECK: fir.call @_FortranAInitialize23