18 lines · plain
1! REQUIRES: flang-supports-f128-math2! RUN: bbc -emit-fir %s -o - | FileCheck %s3! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s4 5! CHECK-LABEL: func @_QPtest_scalar6! CHECK: fir.call @_FortranARandomNumber16({{.*}}){{.*}}: (!fir.box<none>, !fir.ref<i8>, i32) -> ()7subroutine test_scalar8 real(16) :: r9 call random_number(r)10end11 12! CHECK-LABEL: func @_QPtest_array13! CHECK: fir.call @_FortranARandomNumber16({{.*}}){{.*}}: (!fir.box<none>, !fir.ref<i8>, i32) -> ()14subroutine test_array(r)15 real(16) :: r(:)16 call random_number(r)17end18