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)
12
12
real :: realvar1 = 4.0E6_4
13
13
real :: realvar2 = 4.0D6
14
14
real :: realvar3 = 4.0Q6
15
+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
15
16
real :: realvar4 = 4.0D6_8
16
17
! WARNING: Explicit kind parameter on real constant disagrees with exponent letter 'q'
17
18
real :: realvar5 = 4.0Q6_10
19
+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
18
20
real :: realvar6 = 4.0Q6_16
19
21
real :: realvar7 = 4.0E6_8
20
22
real :: realvar8 = 4.0E6_10
@@ -25,7 +27,9 @@ subroutine s(var)
25
27
double precision :: doublevar1 = 4.0E6_4
26
28
double precision :: doublevar2 = 4.0D6
27
29
double precision :: doublevar3 = 4.0Q6
30
+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
28
31
double precision :: doublevar4 = 4.0D6_8
32
+ ! PORTABILITY: Explicit kind parameter together with non-'E' exponent letter is not standard
29
33
double precision :: doublevar5 = 4.0Q6_16
30
34
double precision :: doublevar6 = 4.0E6_8
31
35
double precision :: doublevar7 = 4.0E6_10
You can’t perform that action at this time.
0 commit comments