| ! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s |
| |
| module m |
| type device_array |
| real(kind=8), allocatable, dimension(:), device :: ad |
| real(kind=8), pointer, dimension(:), device :: pd |
| end type |
| |
| type(device_array), allocatable :: da(:) |
| end module |
| |
| ! CHECK-LABEL: fir.global linkonce_odr @_QMmE.c.device_array |
| ! CHECK: fir.insert_value %{{.*}}, %c6{{.*}}, ["genre" |
| ! CHECK: fir.insert_value %{{.*}}, %c5{{.*}}, ["genre" |
| |
| program main |
| use m |
| type(device_array) :: local |
| end |
| |
| ! CHECK-LABEL: func.func @_QQmain() |
| ! CHECK: fir.call @_FortranAInitialize |
