File tree 1 file changed +5
-3
lines changed
1 file changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -253,7 +253,7 @@ subroutine add_config(this,that)
253
253
class(preprocess_config_t), intent (inout ) :: this
254
254
type (preprocess_config_t), intent (in ) :: that
255
255
256
- if (.not. that% name== " cpp " ) then
256
+ if (.not. that% is_cpp() ) then
257
257
write (stderr, ' (a)' ) ' Warning: Preprocessor ' // that% name // &
258
258
' is not supported; will ignore it'
259
259
return
@@ -293,13 +293,15 @@ end subroutine add_config
293
293
! Check cpp
294
294
logical function is_cpp (this )
295
295
class(preprocess_config_t), intent (in ) :: this
296
- is_cpp = this% name == " cpp"
296
+ is_cpp = .false.
297
+ if (allocated (this% name)) is_cpp = this% name == " cpp"
297
298
end function is_cpp
298
299
299
300
! Check cpp
300
301
logical function is_fypp (this )
301
302
class(preprocess_config_t), intent (in ) :: this
302
- is_fypp = this% name == " fypp"
303
+ is_fypp = .false.
304
+ if (allocated (this% name)) is_fypp = this% name == " fypp"
303
305
end function is_fypp
304
306
305
307
end module fpm_manifest_preprocess
You can’t perform that action at this time.
0 commit comments