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

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

89 lines
4.5 KiB
Fortran
Raw Normal View History

[flang][NFC] Simplify semantics test scripts There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634
2020-05-12 02:38:53 +08:00
! RUN: %S/test_modfile.sh %s %t %f18
[flang] Fold DIGITS Original-commit: flang-compiler/f18@6c9adff7a6260e3eecc81626147e3290e2346e22 Reviewed-on: https://github.com/flang-compiler/f18/pull/623 Tree-same-pre-rewrite: false
2019-08-06 01:46:54 +08:00
! Intrinsics SELECTED_INT_KIND, SELECTED_REAL_KIND, PRECISION, RANGE,
! RADIX, DIGITS
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
module m1
! INTEGER(KIND=1) handles 0 <= P < 3
! INTEGER(KIND=2) handles 3 <= P < 5
! INTEGER(KIND=4) handles 5 <= P < 10
! INTEGER(KIND=8) handles 10 <= P < 19
[flang] Final fixes before review Original-commit: flang-compiler/f18@efe5c1b8ec60f7c3d2a083da12924bc4523e6f72 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 07:00:31 +08:00
! INTEGER(KIND=16) handles 19 <= P < 39
[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
integer, parameter :: iranges(*) = &
[flang] Final fixes before review Original-commit: flang-compiler/f18@efe5c1b8ec60f7c3d2a083da12924bc4523e6f72 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 07:00:31 +08:00
[range(0_1), range(0_2), range(0_4), range(0_8), range(0_16)]
logical, parameter :: ircheck = all([2, 4, 9, 18, 38] == iranges)
[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
integer, parameter :: intpvals(*) = [0, 2, 3, 4, 5, 9, 10, 18, 19, 38, 39]
integer, parameter :: intpkinds(*) = &
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
[(selected_int_kind(intpvals(j)),j=1,size(intpvals))]
logical, parameter :: ipcheck = &
all([1, 1, 2, 2, 4, 4, 8, 8, 16, 16, -1] == intpkinds)
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
! REAL(KIND=2) handles 0 <= P < 4 (if available)
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
! REAL(KIND=3) handles 0 <= P < 3 (if available)
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
! REAL(KIND=4) handles 4 <= P < 7
! REAL(KIND=8) handles 7 <= P < 16
! REAL(KIND=10) handles 16 <= P < 19 (if available; ifort is KIND=16)
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
! REAL(KIND=16) handles 19 <= P < 34 (would be 32 with Power double/double)
[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
integer, parameter :: realprecs(*) = &
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
[precision(0._2), precision(0._3), precision(0._4), precision(0._8), &
precision(0._10), precision(0._16)]
logical, parameter :: rpreccheck = all([3, 2, 6, 15, 18, 33] == realprecs)
[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
integer, parameter :: realpvals(*) = [0, 3, 4, 6, 7, 15, 16, 18, 19, 33, 34]
integer, parameter :: realpkinds(*) = &
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
[(selected_real_kind(realpvals(j),0),j=1,size(realpvals))]
logical, parameter :: realpcheck = &
all([2, 2, 4, 4, 8, 8, 10, 10, 16, 16, -1] == realpkinds)
! REAL(KIND=2) handles 0 <= R < 5 (if available)
! REAL(KIND=3) handles 5 <= R < 38 (if available, same range as KIND=4)
! REAL(KIND=4) handles 5 <= R < 38 (if no KIND=3)
! REAL(KIND=8) handles 38 <= R < 308
! REAL(KIND=10) handles 308 <= R < 4932 (if available; ifort is KIND=16)
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
! REAL(KIND=16) handles 308 <= R < 4932 (except Power double/double)
[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
integer, parameter :: realranges(*) = &
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
[range(0._2), range(0._3), range(0._4), range(0._8), range(0._10), &
range(0._16)]
logical, parameter :: rrangecheck = &
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
all([4, 37, 37, 307, 4931, 4931] == realranges)
[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
integer, parameter :: realrvals(*) = &
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
[0, 4, 5, 37, 38, 307, 308, 4931, 4932]
[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
integer, parameter :: realrkinds(*) = &
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
[(selected_real_kind(0,realrvals(j)),j=1,size(realrvals))]
logical, parameter :: realrcheck = &
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
all([2, 2, 3, 3, 8, 8, 10, 10, -2] == realrkinds)
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
logical, parameter :: radixcheck = &
all([radix(0._2), radix(0._3), radix(0._4), radix(0._8), &
radix(0._10), radix(0._16)] == 2)
[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
integer, parameter :: intdigits(*) = &
[flang] Fold DIGITS Original-commit: flang-compiler/f18@6c9adff7a6260e3eecc81626147e3290e2346e22 Reviewed-on: https://github.com/flang-compiler/f18/pull/623 Tree-same-pre-rewrite: false
2019-08-06 01:46:54 +08:00
[digits(0_1), digits(0_2), digits(0_4), digits(0_8), digits(0_16)]
logical, parameter :: intdigitscheck = &
all([7, 15, 31, 63, 127] == intdigits)
[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
integer, parameter :: realdigits(*) = &
[flang] Fold DIGITS Original-commit: flang-compiler/f18@6c9adff7a6260e3eecc81626147e3290e2346e22 Reviewed-on: https://github.com/flang-compiler/f18/pull/623 Tree-same-pre-rewrite: false
2019-08-06 01:46:54 +08:00
[digits(0._2), digits(0._3), digits(0._4), digits(0._8), digits(0._10), &
digits(0._16)]
logical, parameter :: realdigitscheck = &
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
all([11, 8, 24, 53, 64, 113] == realdigits)
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
end module m1
!Expect: m1.mod
!module m1
[flang] Make Fortran form of intrinsic types uppercase `DynamicType::AsFortran` was using mixed case for intrinic type names. Make it upper case for consistency with TYPE(...) and CHARACTER when a length is present and other error messages. Original-commit: flang-compiler/f18@e16909d67f16425b267511e5fe33f2ff72f69ee9 Reviewed-on: https://github.com/flang-compiler/f18/pull/928 Tree-same-pre-rewrite: false
2020-01-07 06:04:17 +08:00
!integer(4),parameter::iranges(1_8:*)=[INTEGER(4)::2_4,4_4,9_4,18_4,38_4]
[flang] Final fixes before review Original-commit: flang-compiler/f18@efe5c1b8ec60f7c3d2a083da12924bc4523e6f72 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 07:00:31 +08:00
!logical(4),parameter::ircheck=.true._4
[flang] C_F_POINTER Emit INTRINSIC statements in module files Argument checking utility Complete error checking Original-commit: flang-compiler/f18@9c6a88f0482c1f222b37e0cc548c822f80ad00e7 Reviewed-on: https://github.com/flang-compiler/f18/pull/896
2019-12-26 04:29:50 +08:00
!intrinsic::all
[flang] Make Fortran form of intrinsic types uppercase `DynamicType::AsFortran` was using mixed case for intrinic type names. Make it upper case for consistency with TYPE(...) and CHARACTER when a length is present and other error messages. Original-commit: flang-compiler/f18@e16909d67f16425b267511e5fe33f2ff72f69ee9 Reviewed-on: https://github.com/flang-compiler/f18/pull/928 Tree-same-pre-rewrite: false
2020-01-07 06:04:17 +08:00
!integer(4),parameter::intpvals(1_8:*)=[INTEGER(4)::0_4,2_4,3_4,4_4,5_4,9_4,10_4,18_4,19_4,38_4,39_4]
!integer(4),parameter::intpkinds(1_8:*)=[INTEGER(4)::1_4,1_4,2_4,2_4,4_4,4_4,8_4,8_4,16_4,16_4,-1_4]
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
!logical(4),parameter::ipcheck=.true._4
[flang] Make Fortran form of intrinsic types uppercase `DynamicType::AsFortran` was using mixed case for intrinic type names. Make it upper case for consistency with TYPE(...) and CHARACTER when a length is present and other error messages. Original-commit: flang-compiler/f18@e16909d67f16425b267511e5fe33f2ff72f69ee9 Reviewed-on: https://github.com/flang-compiler/f18/pull/928 Tree-same-pre-rewrite: false
2020-01-07 06:04:17 +08:00
!integer(4),parameter::realprecs(1_8:*)=[INTEGER(4)::3_4,2_4,6_4,15_4,18_4,33_4]
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
!logical(4),parameter::rpreccheck=.true._4
[flang] Make Fortran form of intrinsic types uppercase `DynamicType::AsFortran` was using mixed case for intrinic type names. Make it upper case for consistency with TYPE(...) and CHARACTER when a length is present and other error messages. Original-commit: flang-compiler/f18@e16909d67f16425b267511e5fe33f2ff72f69ee9 Reviewed-on: https://github.com/flang-compiler/f18/pull/928 Tree-same-pre-rewrite: false
2020-01-07 06:04:17 +08:00
!integer(4),parameter::realpvals(1_8:*)=[INTEGER(4)::0_4,3_4,4_4,6_4,7_4,15_4,16_4,18_4,19_4,33_4,34_4]
!integer(4),parameter::realpkinds(1_8:*)=[INTEGER(4)::2_4,2_4,4_4,4_4,8_4,8_4,10_4,10_4,16_4,16_4,-1_4]
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
!logical(4),parameter::realpcheck=.true._4
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
!integer(4),parameter::realranges(1_8:*)=[INTEGER(4)::4_4,37_4,37_4,307_4,4931_4,4931_4]
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
!logical(4),parameter::rrangecheck=.true._4
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
!integer(4),parameter::realrvals(1_8:*)=[INTEGER(4)::0_4,4_4,5_4,37_4,38_4,307_4,308_4,4931_4,4932_4]
!integer(4),parameter::realrkinds(1_8:*)=[INTEGER(4)::2_4,2_4,3_4,3_4,8_4,8_4,10_4,10_4,-2_4]
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
!logical(4),parameter::realrcheck=.true._4
[flang] PRECISION, RANGE, RADIX Original-commit: flang-compiler/f18@de0bf5a18f74f2041c85149e52781e8f80d0352b Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-30 06:38:33 +08:00
!logical(4),parameter::radixcheck=.true._4
[flang] Make Fortran form of intrinsic types uppercase `DynamicType::AsFortran` was using mixed case for intrinic type names. Make it upper case for consistency with TYPE(...) and CHARACTER when a length is present and other error messages. Original-commit: flang-compiler/f18@e16909d67f16425b267511e5fe33f2ff72f69ee9 Reviewed-on: https://github.com/flang-compiler/f18/pull/928 Tree-same-pre-rewrite: false
2020-01-07 06:04:17 +08:00
!integer(4),parameter::intdigits(1_8:*)=[INTEGER(4)::7_4,15_4,31_4,63_4,127_4]
[flang] Fold DIGITS Original-commit: flang-compiler/f18@6c9adff7a6260e3eecc81626147e3290e2346e22 Reviewed-on: https://github.com/flang-compiler/f18/pull/623 Tree-same-pre-rewrite: false
2019-08-06 01:46:54 +08:00
!logical(4),parameter::intdigitscheck=.true._4
[flang] Fix layout of 128-bit IEEE-754 floating-point values Original-commit: flang-compiler/f18@c95c45704e7c0afeb0d2dbec965afd368e923a3a Reviewed-on: https://github.com/flang-compiler/f18/pull/1021
2020-02-25 09:04:54 +08:00
!integer(4),parameter::realdigits(1_8:*)=[INTEGER(4)::11_4,8_4,24_4,53_4,64_4,113_4]
[flang] Fold DIGITS Original-commit: flang-compiler/f18@6c9adff7a6260e3eecc81626147e3290e2346e22 Reviewed-on: https://github.com/flang-compiler/f18/pull/623 Tree-same-pre-rewrite: false
2019-08-06 01:46:54 +08:00
!logical(4),parameter::realdigitscheck=.true._4
[flang] Defer conversions to objects; fix some intrinsic table entries more fixes Access components of constant structures Apply implicit typing to dummy args used in automatic array dimensions SELECTED_INT_KIND and SELECTED_REAL_KIND Finish SELECTED_{INT,REAL}_KIND and common cases of ALL()/ANY() Original-commit: flang-compiler/f18@e9f8e53e55867863ca06461fb6edd965c86352c7 Reviewed-on: https://github.com/flang-compiler/f18/pull/472 Tree-same-pre-rewrite: false
2019-05-22 07:58:46 +08:00
!end