41 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK2! RUN: %flang_fc1 -fdebug-unparse -fdefault-integer-8 %s 2>&1 | FileCheck %s --check-prefix=CHECK-I83! RUN: %flang_fc1 -fdebug-unparse %s -fdefault-real-8 2>&1 | FileCheck %s --check-prefix=CHECK-R84! RUN: %flang_fc1 -fdebug-unparse %s -fdefault-integer-8 -fdefault-real-8 2>&1 | FileCheck %s --check-prefix=CHECK-I8-R85 6use iso_fortran_env7 8!CHECK-NOT: warning9!CHECK: nss = 32_410!CHECK-I8: warning: NUMERIC_STORAGE_SIZE from ISO_FORTRAN_ENV is not well-defined when default INTEGER and REAL are not consistent due to compiler options11!CHECK-I8: nss = 32_412!CHECK-R8: warning: NUMERIC_STORAGE_SIZE from ISO_FORTRAN_ENV is not well-defined when default INTEGER and REAL are not consistent due to compiler options13!CHECK-R8: nss = 32_414!CHECK-I8-R8: nss = 64_415integer, parameter :: nss = numeric_storage_size16 17!CHECK: iss = 32_418!CHECK-I8: iss = 64_819!CHECK-R8: iss = 32_420!CHECK-I8-R8: iss = 64_821integer, parameter :: iss = storage_size(1)22 23!CHECK: rss = 32_424!CHECK-I8: rss = 32_825!CHECK-R8: rss = 64_426!CHECK-I8-R8: rss = 64_827integer, parameter :: rss = storage_size(1.)28 29!CHECK: zss = 64_430!CHECK-I8: zss = 64_831!CHECK-R8: zss = 128_432!CHECK-I8-R8: zss = 128_833integer, parameter :: zss = storage_size((1.,0.))34 35!CHECK: lss = 32_436!CHECK-I8: lss = 64_837!CHECK-R8: lss = 32_438!CHECK-I8-R8: lss = 64_839integer, parameter :: lss = storage_size(.true.)40end41