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 @@ -97,7 +97,9 @@ subroutine module_test(n)
97
97
98
98
! WARNING: Passing global variable 'i1' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
99
99
call imp_pass_int(i1) ! < warn: i1 from common
100
+ ! WARNING: Passing global variable 'i2' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
100
101
call imp_pass_int(i2(1 )) ! < ok: single element/begin of mem block
102
+ ! WARNING: Passing global variable 'i2' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
101
103
call imp_pass_int(i2(n)) ! < ok: single element/begin of mem block
102
104
! WARNING: Passing global variable 'i3' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
103
105
call imp_pass_int(i3(1 )) ! < warn: shape /= [1]
@@ -108,6 +110,7 @@ subroutine module_test(n)
108
110
109
111
! WARNING: Passing global variable 'i2' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
110
112
call imp_pass_int_1d(i2) ! < warn: i2 from module
113
+ ! WARNING: Passing global variable 'i2' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
111
114
call imp_pass_int_1d(i2(n:n+3 )) ! < ok: mem block
112
115
! WARNING: Passing global variable 'i3' from MODULE 'explicit_test_mod' as function argument [-Wpass-global-variable]
113
116
call imp_pass_int_1d(i3) ! < warn: i3 from module & shape /= [1]
You can’t perform that action at this time.
0 commit comments