8725400921
These options are supported by the Intel compiler. There are similar options in the IBM compiler as well. Each of the options can be provided more than once. In that case, the last occurence of -fdefault-real-* (respectively -fdefault-integer-*) is used if both -fdefault-real-4 and -fdefault-real-8 are specified. The fdefault.f90 test file was extensively modified. Testing handling of the options by the driver was removed since testing handling of the options by -fc1 is sufficient. Fixes #160252
59 lines
2.1 KiB
Fortran
59 lines
2.1 KiB
Fortran
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s --check-prefix=CHECK
|
|
! RUN: %flang_fc1 -fdebug-unparse -fdefault-integer-4 %s 2>&1 | FileCheck %s --check-prefix=CHECK-I4
|
|
! RUN: %flang_fc1 -fdebug-unparse %s -fdefault-real-4 2>&1 | FileCheck %s --check-prefix=CHECK-R4
|
|
! RUN: %flang_fc1 -fdebug-unparse %s -fdefault-integer-4 -fdefault-real-4 2>&1 | FileCheck %s --check-prefix=CHECK-I4-R4
|
|
! RUN: %flang_fc1 -fdebug-unparse -fdefault-integer-8 %s 2>&1 | FileCheck %s --check-prefix=CHECK-I8
|
|
! RUN: %flang_fc1 -fdebug-unparse %s -fdefault-real-8 2>&1 | FileCheck %s --check-prefix=CHECK-R8
|
|
! RUN: %flang_fc1 -fdebug-unparse %s -fdefault-integer-8 -fdefault-real-8 2>&1 | FileCheck %s --check-prefix=CHECK-I8-R8
|
|
|
|
use iso_fortran_env
|
|
|
|
!CHECK-NOT: warning
|
|
!CHECK: nss = 32_4
|
|
!CHECK-I4: nss = 32_4
|
|
!CHECK-R4: nss = 32_4
|
|
!CHECK-I4-R4: nss = 32_4
|
|
!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 options
|
|
!CHECK-I8: nss = 32_4
|
|
!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 options
|
|
!CHECK-R8: nss = 32_4
|
|
!CHECK-I8-R8: nss = 64_4
|
|
integer, parameter :: nss = numeric_storage_size
|
|
|
|
!CHECK: iss = 32_4
|
|
!CHECK-I4: iss = 32_4
|
|
!CHECK-R4: iss = 32_4
|
|
!CHECK-I4-R4: iss = 32_4
|
|
!CHECK-I8: iss = 64_8
|
|
!CHECK-R8: iss = 32_4
|
|
!CHECK-I8-R8: iss = 64_8
|
|
integer, parameter :: iss = storage_size(1)
|
|
|
|
!CHECK: rss = 32_4
|
|
!CHECK-I4: rss = 32_4
|
|
!CHECK-R4: rss = 32_4
|
|
!CHECK-I4-R4: rss = 32_4
|
|
!CHECK-I8: rss = 32_8
|
|
!CHECK-R8: rss = 64_4
|
|
!CHECK-I8-R8: rss = 64_8
|
|
integer, parameter :: rss = storage_size(1.)
|
|
|
|
!CHECK: zss = 64_4
|
|
!CHECK-I4: zss = 64_4
|
|
!CHECK-R4: zss = 64_4
|
|
!CHECK-I4-R4: zss = 64_4
|
|
!CHECK-I8: zss = 64_8
|
|
!CHECK-R8: zss = 128_4
|
|
!CHECK-I8-R8: zss = 128_8
|
|
integer, parameter :: zss = storage_size((1.,0.))
|
|
|
|
!CHECK: lss = 32_4
|
|
!CHECK-I4: lss = 32_4
|
|
!CHECK-R4: lss = 32_4
|
|
!CHECK-I4-R4: lss = 32_4
|
|
!CHECK-I8: lss = 64_8
|
|
!CHECK-R8: lss = 32_4
|
|
!CHECK-I8-R8: lss = 64_8
|
|
integer, parameter :: lss = storage_size(.true.)
|
|
end
|