File tree Expand file tree Collapse file tree 1 file changed +3
-0
lines changed Expand file tree Collapse file tree 1 file changed +3
-0
lines changed Original file line number Diff line number Diff line change @@ -11,11 +11,13 @@ subroutine s(var)
1111 real :: realvar3 = 4.0Q6
1212 ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
1313 real :: realvar4 = 4.0D6_8
14+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
1415 ! WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q'
1516 real :: realvar5 = 4.0Q6_10
1617 ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
1718 real :: realvar6 = 4.0Q6_16
1819 real :: realvar7 = 4.0E6_8
20+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
1921 real :: realvar8 = 4.0E6_10
2022 real :: realvar9 = 4.0E6_16
2123 ! ERROR: Unsupported REAL(KIND=32)
@@ -29,6 +31,7 @@ subroutine s(var)
2931 ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
3032 double precision :: doublevar5 = 4.0Q6_16
3133 double precision :: doublevar6 = 4.0E6_8
34+ ! AIX_WARNING: underflow on REAL(10) to REAL(8) conversion
3235 double precision :: doublevar7 = 4.0E6_10
3336 double precision :: doublevar8 = 4.0E6_16
3437 ! ERROR: Unsupported REAL(KIND=32)
You can’t perform that action at this time.
0 commit comments