16 lines · plain
1! RUN: %not_todo_cmd bbc -emit-fir -fcuda -o - %s 2>&1 | FileCheck %s2 3program test4implicit none5 6type :: t17 real(4) :: x_fin(1:10) = acos(-1.0_4)8end type t19 10type(t1), allocatable, device :: t(:)11 12! CHECK: not yet implemented: CUDA Fortran: allocate on device with default initialization13allocate(t(1:2))14 15end program16