diff --git a/flang/test/Semantics/kinds04_q10.f90 b/flang/test/Semantics/kinds04_q10.f90 index aa5c4abe2f1df..3bec7a386585b 100644 --- a/flang/test/Semantics/kinds04_q10.f90 +++ b/flang/test/Semantics/kinds04_q10.f90 @@ -1,4 +1,5 @@ -! RUN: %python %S/test_errors.py %s %flang_fc1 +! RUN: not %flang_fc1 %s 2>%t.stderr +! RUN: FileCheck %s --input-file=%t.stderr --check-prefixes=PORTABILITY,ERROR,WARNING%if system-aix %{,AIX_WARNING%} ! C716 If both kind-param and exponent-letter appear, exponent-letter ! shall be E. (As an extension we also allow an exponent-letter which matches ! the kind-param) @@ -12,10 +13,12 @@ subroutine s(var) !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' + !AIX_WARNING: underflow on REAL(10) to REAL(4) conversion 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 + !AIX_WARNING: underflow on REAL(10) to REAL(4) conversion real :: realvar8 = 4.0E6_10 real :: realvar9 = 4.0E6_16 !ERROR: Unsupported REAL(KIND=32) @@ -29,6 +32,7 @@ subroutine s(var) !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 + !AIX_WARNING: underflow on REAL(10) to REAL(8) conversion double precision :: doublevar7 = 4.0E6_10 double precision :: doublevar8 = 4.0E6_16 !ERROR: Unsupported REAL(KIND=32)