1- ! RUN: %python %S/test_errors.py %s %flang_fc1
1+ ! RUN: not %flang_fc1 %s 2>%t.stderr
2+ ! RUN: FileCheck %s --input-file=%t.stderr --check-prefixes=PORTABILITY,ERROR,WARNING%if system-aix %{,AIX_WARNING%}
23! C716 If both kind-param and exponent-letter appear, exponent-letter
34! shall be E. (As an extension we also allow an exponent-letter which matches
45! the kind-param)
@@ -12,10 +13,12 @@ subroutine s(var)
1213 ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
1314 real :: realvar4 = 4.0D6_8
1415 ! WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q'
16+ ! AIX_WARNING: underflow on REAL(10) to REAL(4) conversion
1517 real :: realvar5 = 4.0Q6_10
1618 ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
1719 real :: realvar6 = 4.0Q6_16
1820 real :: realvar7 = 4.0E6_8
21+ ! AIX_WARNING: underflow on REAL(10) to REAL(4) conversion
1922 real :: realvar8 = 4.0E6_10
2023 real :: realvar9 = 4.0E6_16
2124 ! ERROR: Unsupported REAL(KIND=32)
@@ -29,6 +32,7 @@ subroutine s(var)
2932 ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
3033 double precision :: doublevar5 = 4.0Q6_16
3134 double precision :: doublevar6 = 4.0E6_8
35+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
3236 double precision :: doublevar7 = 4.0E6_10
3337 double precision :: doublevar8 = 4.0E6_16
3438 ! ERROR: Unsupported REAL(KIND=32)
0 commit comments