File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
example_packages/features_per_compiler/app Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -8,7 +8,7 @@ program main
8
8
integer :: failed_checks
9
9
10
10
! Get compiler flags used to build this file
11
- options_str = compiler_options()
11
+ allocate ( options_str, source = compiler_options() )
12
12
13
13
! Display compiler information
14
14
print ' (a)' , ' ================================='
@@ -17,7 +17,7 @@ program main
17
17
print ' (a)' , ' '
18
18
19
19
! Detect compiler type using the function
20
- detected_compiler = compiled_with()
20
+ allocate ( detected_compiler, source = compiled_with() )
21
21
22
22
print ' (2a)' , ' Detected compiler: ' , detected_compiler
23
23
print ' (a)' , ' '
@@ -97,7 +97,7 @@ function compiled_with() result(msg)
97
97
character (len= :), allocatable :: msg
98
98
character (len= :), allocatable :: version_str
99
99
100
- version_str = compiler_version()
100
+ allocate ( version_str, source = compiler_version() )
101
101
102
102
if (index (version_str, ' GCC' ) > 0 ) then
103
103
msg = ' gfortran'
You can’t perform that action at this time.
0 commit comments