14 lines · plain
1!RUN: %not_todo_cmd bbc -emit-hlfir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s2!RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s3 4subroutine f005 implicit none6 ! NOTE: This is implemented for scalars as it is the default behaviour, so we utilise7 ! a different data type.8 integer, allocatable :: i9 !CHECK: not yet implemented: Firstprivate is currently unsupported defaultmap behaviour10 !$omp target defaultmap(firstprivate)11 i = 1012 !$omp end target13 end14