10 lines · plain
1! RUN: %not_todo_cmd bbc -emit-fir -fcuda -o - %s 2>&1 | FileCheck %s2 3program main4 implicit none5 integer, device, allocatable :: a_d(:)6 integer, allocatable :: a(:)7! CHECK: not yet implemented: CUDA Fortran: allocate with device source8 allocate(a, source=a_d)9end program10