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=%if system-aix %{"PORTABILITY","WARNING","ERROR","AIX_WARNING"%} %else %{"PORTABILITY","WARNING","ERROR"%}
2
3
! C716 If both kind-param and exponent-letter appear, exponent-letter
3
4
! shall be E. (As an extension we also allow an exponent-letter which matches
4
5
! the kind-param)
@@ -11,11 +12,13 @@ subroutine s(var)
11
12
real :: realvar3 = 4.0Q6
12
13
! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
13
14
real :: realvar4 = 4.0D6_8
15
+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
14
16
! WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q'
15
17
real :: realvar5 = 4.0Q6_10
16
18
! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
17
19
real :: realvar6 = 4.0Q6_16
18
20
real :: realvar7 = 4.0E6_8
21
+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
19
22
real :: realvar8 = 4.0E6_10
20
23
real :: realvar9 = 4.0E6_16
21
24
! ERROR: Unsupported REAL(KIND=32)
@@ -29,6 +32,7 @@ subroutine s(var)
29
32
! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
30
33
double precision :: doublevar5 = 4.0Q6_16
31
34
double precision :: doublevar6 = 4.0E6_8
35
+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
32
36
double precision :: doublevar7 = 4.0E6_10
33
37
double precision :: doublevar8 = 4.0E6_16
34
38
! ERROR: Unsupported REAL(KIND=32)
0 commit comments