diff options
author | Peter Klausler <35819229+klausler@users.noreply.github.com> | 2024-05-01 15:39:15 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2024-05-01 15:39:15 -0700 |
commit | 56e4111f9da499072e5119ccf92693202430f894 (patch) | |
tree | 52528436c580f9770e9e40e6bf60bf3f0bb7a2dd | |
parent | 78885395c802b5c1eea3decece3695a7240902b1 (diff) |
[flang] Update test results (#90791)
Some additional portability warnings now issue for a test; ensure that
they are expected.
-rw-r--r-- | flang/test/Semantics/kinds04_q16.f90 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/flang/test/Semantics/kinds04_q16.f90 b/flang/test/Semantics/kinds04_q16.f90 index 527cbe9aff12..885ca8c8392b 100644 --- a/flang/test/Semantics/kinds04_q16.f90 +++ b/flang/test/Semantics/kinds04_q16.f90 @@ -12,9 +12,11 @@ subroutine s(var) real :: realvar1 = 4.0E6_4 real :: realvar2 = 4.0D6 real :: realvar3 = 4.0Q6 + !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard real :: realvar4 = 4.0D6_8 !WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q' real :: realvar5 = 4.0Q6_10 + !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard real :: realvar6 = 4.0Q6_16 real :: realvar7 = 4.0E6_8 real :: realvar8 = 4.0E6_10 @@ -25,7 +27,9 @@ subroutine s(var) double precision :: doublevar1 = 4.0E6_4 double precision :: doublevar2 = 4.0D6 double precision :: doublevar3 = 4.0Q6 + !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard double precision :: doublevar4 = 4.0D6_8 + !PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard double precision :: doublevar5 = 4.0Q6_16 double precision :: doublevar6 = 4.0E6_8 double precision :: doublevar7 = 4.0E6_10 |