File tree Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Original file line number Diff line number Diff line change @@ -12,9 +12,11 @@ subroutine s(var)
1212 real :: realvar1 = 4.0E6_4
1313 real :: realvar2 = 4.0D6
1414 real :: realvar3 = 4.0Q6
15+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
1516 real :: realvar4 = 4.0D6_8
1617 ! WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q'
1718 real :: realvar5 = 4.0Q6_10
19+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
1820 real :: realvar6 = 4.0Q6_16
1921 real :: realvar7 = 4.0E6_8
2022 real :: realvar8 = 4.0E6_10
@@ -25,7 +27,9 @@ subroutine s(var)
2527 double precision :: doublevar1 = 4.0E6_4
2628 double precision :: doublevar2 = 4.0D6
2729 double precision :: doublevar3 = 4.0Q6
30+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
2831 double precision :: doublevar4 = 4.0D6_8
32+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
2933 double precision :: doublevar5 = 4.0Q6_16
3034 double precision :: doublevar6 = 4.0E6_8
3135 double precision :: doublevar7 = 4.0E6_10
You can’t perform that action at this time.
0 commit comments