maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/module/ieee_exceptions.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

126 lines
4.1 KiB
Fortran
Raw Normal View History

[flang] Flang relicensing changes for LLVM Apache 2.0 license This changes the license information in many of the flang source files. - Renamed LICENSE to LICENSE.txt. - NVIDIA Copyright lines have been removed. - Initial lines for files follow the LLVM coding convention (file name on the first line; Emacs mode information on the first line). - License references have been replaced with the abridged LLVM text. - License information was removed from the test files. - No file header was placed on test files (these weren't in most LLVM test files). - License information was added to documentation files where it was missing. We did not add brief file summaries to the initial line. See http://llvm.org/docs/DeveloperPolicy.html#new-llvm-project-license-framework for a description of the new license. See http://llvm.org/docs/CodingStandards.html#file-headers for a description of the new LLVM standard file header. Original-commit: flang-compiler/f18@add6cde7244b926ca457a1c74c21fea071b85329 Reviewed-on: https://github.com/flang-compiler/f18/pull/887
2019-12-21 04:52:07 +08:00
!===-- module/ieee_exceptions.f90 ------------------------------------------===!
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
!
[flang] Flang relicensing changes for LLVM Apache 2.0 license This changes the license information in many of the flang source files. - Renamed LICENSE to LICENSE.txt. - NVIDIA Copyright lines have been removed. - Initial lines for files follow the LLVM coding convention (file name on the first line; Emacs mode information on the first line). - License references have been replaced with the abridged LLVM text. - License information was removed from the test files. - No file header was placed on test files (these weren't in most LLVM test files). - License information was added to documentation files where it was missing. We did not add brief file summaries to the initial line. See http://llvm.org/docs/DeveloperPolicy.html#new-llvm-project-license-framework for a description of the new license. See http://llvm.org/docs/CodingStandards.html#file-headers for a description of the new LLVM standard file header. Original-commit: flang-compiler/f18@add6cde7244b926ca457a1c74c21fea071b85329 Reviewed-on: https://github.com/flang-compiler/f18/pull/887
2019-12-21 04:52:07 +08:00
! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
! See https://llvm.org/LICENSE.txt for license information.
! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
!
[flang] Minor format change to LLVM license lines Replace comment lines containing all dashes with the proper ===-----....----=== markers. Original-commit: flang-compiler/f18@a8936b0d4187a9a9ef43f9d34055a3213beeb9d2 Reviewed-on: https://github.com/flang-compiler/f18/pull/922
2020-01-11 04:12:03 +08:00
!===------------------------------------------------------------------------===!
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
! See Fortran 2018, clause 17
module ieee_exceptions
type :: ieee_flag_type ! Fortran 2018, 17.2 & 17.3
private
integer(kind=1) :: flag = 0
end type ieee_flag_type
type(ieee_flag_type), parameter :: &
ieee_invalid = ieee_flag_type(1), &
ieee_overflow = ieee_flag_type(2), &
ieee_divide_by_zero = ieee_flag_type(4), &
ieee_underflow = ieee_flag_type(8), &
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
ieee_inexact = ieee_flag_type(16), &
ieee_denorm = ieee_flag_type(32) ! PGI extension
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
type(ieee_flag_type), parameter :: &
[flang] Fix errors in tests and predefined modules There were many places in tests and predefined modules that had incorrect code that we weren't detecting until now. Most of the problems were deferred-shape arrays that should have been implied-shape. For example: `real, parameter :: a(:) = [1.0, 2.0]` should have `(*)` rather than `(:)`. There were also a few places with deferred-shape arrays that were not allocatable/pointer or explicit-shape ones that were. Original-commit: flang-compiler/f18@0a959ce1d81dd2e54b72886db699b12c7ad59d88 Reviewed-on: https://github.com/flang-compiler/f18/pull/630
2019-08-07 05:14:33 +08:00
ieee_usual(*) = [ &
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
ieee_overflow, ieee_divide_by_zero, ieee_invalid ], &
[flang] Fix errors in tests and predefined modules There were many places in tests and predefined modules that had incorrect code that we weren't detecting until now. Most of the problems were deferred-shape arrays that should have been implied-shape. For example: `real, parameter :: a(:) = [1.0, 2.0]` should have `(*)` rather than `(:)`. There were also a few places with deferred-shape arrays that were not allocatable/pointer or explicit-shape ones that were. Original-commit: flang-compiler/f18@0a959ce1d81dd2e54b72886db699b12c7ad59d88 Reviewed-on: https://github.com/flang-compiler/f18/pull/630
2019-08-07 05:14:33 +08:00
ieee_all(*) = [ &
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
ieee_usual, ieee_underflow, ieee_inexact, ieee_denorm ]
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
type :: ieee_modes_type ! Fortran 2018, 17.7
private
end type ieee_modes_type
type :: ieee_status_type ! Fortran 2018, 17.7
private
end type ieee_status_type
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
private :: ieee_support_flag_2, ieee_support_flag_3, &
ieee_support_flag_4, ieee_support_flag_8, ieee_support_flag_10, &
ieee_support_flag_16
interface ieee_support_flag
[flang] Better shape analysis for CSHIFT, EOSHIFT, SPREAD Original-commit: flang-compiler/f18@eb43df85a6048d0ffe417998d068bb6c45e702e0 Reviewed-on: https://github.com/flang-compiler/f18/pull/782 Tree-same-pre-rewrite: false
2019-10-17 01:35:34 +08:00
module procedure :: ieee_support_flag, &
ieee_support_flag_2, ieee_support_flag_3, &
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
ieee_support_flag_4, ieee_support_flag_8, ieee_support_flag_10, &
ieee_support_flag_16
end interface
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
contains
[flang] Mark ieee_get_flag and ieee_get_halting_mode as elemental Original-commit: flang-compiler/f18@d6237fa31112acc7bd864b9f732cb288014e6cf7 Reviewed-on: https://github.com/flang-compiler/f18/pull/886
2019-12-21 04:28:18 +08:00
elemental subroutine ieee_get_flag(flag, flag_value)
[flang] - ieee_exceptions.f90: I added all of the routines listed in table 17.3 of the standard that were not currently specified. I also re-ordered the routines to be in the same order as the standard. - doconcurrent01.f90: I removed the custom versions of ieee_exceptions and iso_fortran_env. I also fixed a typo in a comment. Also, the use of the real standare interface caused one of the error messages to go away, so I fixed that. Original-commit: flang-compiler/f18@a8b310a9685d7e6502073ecb011c16aaa1e1d14b Reviewed-on: https://github.com/flang-compiler/f18/pull/637
2019-08-10 02:34:31 +08:00
type(ieee_flag_type), intent(in) :: flag
logical, intent(out) :: flag_value
end subroutine ieee_get_flag
[flang] Mark ieee_get_flag and ieee_get_halting_mode as elemental Original-commit: flang-compiler/f18@d6237fa31112acc7bd864b9f732cb288014e6cf7 Reviewed-on: https://github.com/flang-compiler/f18/pull/886
2019-12-21 04:28:18 +08:00
elemental subroutine ieee_get_halting_mode(flag, halting)
[flang] - ieee_exceptions.f90: I added all of the routines listed in table 17.3 of the standard that were not currently specified. I also re-ordered the routines to be in the same order as the standard. - doconcurrent01.f90: I removed the custom versions of ieee_exceptions and iso_fortran_env. I also fixed a typo in a comment. Also, the use of the real standare interface caused one of the error messages to go away, so I fixed that. Original-commit: flang-compiler/f18@a8b310a9685d7e6502073ecb011c16aaa1e1d14b Reviewed-on: https://github.com/flang-compiler/f18/pull/637
2019-08-10 02:34:31 +08:00
type(ieee_flag_type), intent(in) :: flag
logical, intent(out) :: halting
end subroutine ieee_get_halting_mode
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
subroutine ieee_get_modes(modes)
type(ieee_modes_type), intent(out) :: modes
end subroutine ieee_get_modes
subroutine ieee_get_status(status)
type(ieee_status_type), intent(out) :: status
end subroutine ieee_get_status
[flang] - ieee_exceptions.f90: I added all of the routines listed in table 17.3 of the standard that were not currently specified. I also re-ordered the routines to be in the same order as the standard. - doconcurrent01.f90: I removed the custom versions of ieee_exceptions and iso_fortran_env. I also fixed a typo in a comment. Also, the use of the real standare interface caused one of the error messages to go away, so I fixed that. Original-commit: flang-compiler/f18@a8b310a9685d7e6502073ecb011c16aaa1e1d14b Reviewed-on: https://github.com/flang-compiler/f18/pull/637
2019-08-10 02:34:31 +08:00
pure subroutine ieee_set_flag(flag, flag_value)
type(ieee_flag_type), intent(in) :: flag
logical, intent(in) :: flag_value
end subroutine ieee_set_flag
pure subroutine ieee_set_halting_mode(flag, halting)
type(ieee_flag_type), intent(in) :: flag
logical, intent(in) :: halting
end subroutine ieee_set_halting_mode
subroutine ieee_set_modes(modes)
type(ieee_modes_type), intent(in) :: modes
end subroutine ieee_set_modes
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
subroutine ieee_set_status(status)
type(ieee_status_type), intent(in) :: status
end subroutine ieee_set_status
[flang] Better shape analysis for CSHIFT, EOSHIFT, SPREAD Original-commit: flang-compiler/f18@eb43df85a6048d0ffe417998d068bb6c45e702e0 Reviewed-on: https://github.com/flang-compiler/f18/pull/782 Tree-same-pre-rewrite: false
2019-10-17 01:35:34 +08:00
pure logical function ieee_support_flag(flag)
type(ieee_flag_type), intent(in) :: flag
ieee_support_flag = .true.
end function
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
pure logical function ieee_support_flag_2(flag, x)
type(ieee_flag_type), intent(in) :: flag
real(kind=2), intent(in) :: x(..)
ieee_support_flag_2 = .true.
end function
pure logical function ieee_support_flag_3(flag, x)
type(ieee_flag_type), intent(in) :: flag
real(kind=3), intent(in) :: x(..)
ieee_support_flag_3 = .true.
end function
pure logical function ieee_support_flag_4(flag, x)
type(ieee_flag_type), intent(in) :: flag
real(kind=4), intent(in) :: x(..)
ieee_support_flag_4 = .true.
end function
pure logical function ieee_support_flag_8(flag, x)
type(ieee_flag_type), intent(in) :: flag
real(kind=8), intent(in) :: x(..)
ieee_support_flag_8 = .true.
end function
pure logical function ieee_support_flag_10(flag, x)
type(ieee_flag_type), intent(in) :: flag
real(kind=10), intent(in) :: x(..)
ieee_support_flag_10 = .true.
end function
pure logical function ieee_support_flag_16(flag, x)
[flang] - ieee_exceptions.f90: I added all of the routines listed in table 17.3 of the standard that were not currently specified. I also re-ordered the routines to be in the same order as the standard. - doconcurrent01.f90: I removed the custom versions of ieee_exceptions and iso_fortran_env. I also fixed a typo in a comment. Also, the use of the real standare interface caused one of the error messages to go away, so I fixed that. Original-commit: flang-compiler/f18@a8b310a9685d7e6502073ecb011c16aaa1e1d14b Reviewed-on: https://github.com/flang-compiler/f18/pull/637
2019-08-10 02:34:31 +08:00
type(ieee_flag_type), intent(in) :: flag
[flang] Update preprocessing document, commentary Extend documentation on preprocessing IsSimplyContiguous basic skeleton Apply suggested improvements to mod-file.cc Checks for new call13.f90 (15.4.2.2 explicit interfaces) Implement checking for procedures that can be called via an implicit interface Argument checking, test fixing Better argument checking Better derived type compatibility checking Treat externals as if implicitly interfaced Extend IEEE_EXCEPTIONS module so tests still pass with argument checking SAME_TYPE_AS and EXTENDS_TYPE_OF intrinsic inquiry functions Define interfaces for most intrinsic subroutines Better PASS arguments More with PASS() argument Prep for review address comments fix comment Remove formatted expression from specification expression error message per review more review comments Original-commit: flang-compiler/f18@3cca775da9302e3a2acec4a34800cd7666899b5f Reviewed-on: https://github.com/flang-compiler/f18/pull/776
2019-09-17 07:58:13 +08:00
real(kind=16), intent(in) :: x(..)
ieee_support_flag_16 = .true.
end function
[flang] - ieee_exceptions.f90: I added all of the routines listed in table 17.3 of the standard that were not currently specified. I also re-ordered the routines to be in the same order as the standard. - doconcurrent01.f90: I removed the custom versions of ieee_exceptions and iso_fortran_env. I also fixed a typo in a comment. Also, the use of the real standare interface caused one of the error messages to go away, so I fixed that. Original-commit: flang-compiler/f18@a8b310a9685d7e6502073ecb011c16aaa1e1d14b Reviewed-on: https://github.com/flang-compiler/f18/pull/637
2019-08-10 02:34:31 +08:00
[flang] Fixed the declarations of IEEE_SUPPORT_FLAG and IEEE_SUPPORT_HALTING to be functions rather than subroutines. Note that Table 17.3 in the standard summarizes the contents of IEEE_EXCEPTIONS with the details specified in section 17.11. Original-commit: flang-compiler/f18@fca58d479d2ab4578a029980f5144d11a46d5e78 Reviewed-on: https://github.com/flang-compiler/f18/pull/730
2019-09-11 03:43:16 +08:00
pure logical function ieee_support_halting(flag)
[flang] - ieee_exceptions.f90: I added all of the routines listed in table 17.3 of the standard that were not currently specified. I also re-ordered the routines to be in the same order as the standard. - doconcurrent01.f90: I removed the custom versions of ieee_exceptions and iso_fortran_env. I also fixed a typo in a comment. Also, the use of the real standare interface caused one of the error messages to go away, so I fixed that. Original-commit: flang-compiler/f18@a8b310a9685d7e6502073ecb011c16aaa1e1d14b Reviewed-on: https://github.com/flang-compiler/f18/pull/637
2019-08-10 02:34:31 +08:00
type(ieee_flag_type), intent(in) :: flag
[flang] Fixed the declarations of IEEE_SUPPORT_FLAG and IEEE_SUPPORT_HALTING to be functions rather than subroutines. Note that Table 17.3 in the standard summarizes the contents of IEEE_EXCEPTIONS with the details specified in section 17.11. Original-commit: flang-compiler/f18@fca58d479d2ab4578a029980f5144d11a46d5e78 Reviewed-on: https://github.com/flang-compiler/f18/pull/730
2019-09-11 03:43:16 +08:00
end function ieee_support_halting
[flang] Placeholders for some standard modules Original-commit: flang-compiler/f18@a7182af0d5a6c66faab45977554c1074a3fb9d7f Reviewed-on: https://github.com/flang-compiler/f18/pull/477 Tree-same-pre-rewrite: false
2019-06-01 07:35:52 +08:00
end module ieee_exceptions