26 lines · plain
1!RUN: %flang_fc1 -emit-llvm -fopenmp %openmp_flags -fopenmp-version=52 %s -o - | FileCheck %s2 3!Check that this doesn't crash.4 5!CHECK-LABEL: define void @f00_()6!CHECK: call i1 @_FortranAioOutputDerivedType7 8subroutine f009 use iso_c_binding10 type(c_ptr) :: x11 12!$omp target data use_device_ptr(x) if(.false.)13 print *, x14!$omp end target data15end16 17!CHECK-LABEL: define void @f01_()18!CHECK: call i1 @_FortranAioOutputInteger3219subroutine f0120 integer :: x21 22!$omp target data use_device_addr(x) if(.false.)23 print *, x24!$omp end target data25end26