1
1
module fpm_compiler
2
- use fpm_model, only: fpm_model_t
2
+ use fpm_model, only: fpm_model_t
3
3
use fpm_filesystem, only: join_path
4
4
public add_compile_flag_defaults
5
5
@@ -9,9 +9,9 @@ subroutine add_compile_flag_defaults(build_name,compiler,model)
9
9
character (len=* ),intent (in ) :: build_name, compiler
10
10
11
11
type (fpm_model_t), intent (inout ) :: model
12
- ! could just be a function to return a string instead of passing model
12
+ ! could just be a function to return a string instead of passing model
13
13
! but likely to change other components like matching C compiler
14
-
14
+
15
15
character (len= :),allocatable :: fflags
16
16
character (len= :),allocatable :: module_path_switch
17
17
@@ -43,7 +43,7 @@ subroutine add_compile_flag_defaults(build_name,compiler,model)
43
43
44
44
select case (build_name// ' _' // compiler)
45
45
46
- case (' release_caf' )
46
+ case (' release_caf' )
47
47
module_path_switch= ' -J '
48
48
fflags= ' &
49
49
& -O3&
@@ -65,7 +65,7 @@ subroutine add_compile_flag_defaults(build_name,compiler,model)
65
65
& -fcheck-array-temporaries&
66
66
& -fbacktrace&
67
67
&'
68
- case (' release_gfortran' )
68
+ case (' release_gfortran' )
69
69
module_path_switch= ' -J '
70
70
fflags= ' &
71
71
& -O3&
@@ -137,6 +137,7 @@ subroutine add_compile_flag_defaults(build_name,compiler,model)
137
137
& -fp-model precise&
138
138
& -pc 64&
139
139
& -align all&
140
+ & -coarray&
140
141
& -error-limit 1&
141
142
& -reentrancy threaded&
142
143
& -nogen-interfaces&
@@ -147,7 +148,8 @@ subroutine add_compile_flag_defaults(build_name,compiler,model)
147
148
module_path_switch= ' -module '
148
149
fflags = ' &
149
150
& -warn all&
150
- & -check all&
151
+ & -check:all:noarg_temp_created&
152
+ & -coarray&
151
153
& -error-limit 1&
152
154
& -O0&
153
155
& -g&
0 commit comments