- Timestamp:
- Jul 22, 2019 9:48:42 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/data_output_binary_module.f90
r4107 r4108 221 221 ': Remove existing file ' // & 222 222 TRIM( config_file_name ) // TRIM( file_suffix ) ) 223 CALL EXECUTE_COMMAND_LINE( & 224 COMMAND='rm ' // TRIM( config_file_name ) // TRIM( file_suffix ), & 225 WAIT=.TRUE., EXITSTAT=return_value ) 223 !> @note Fortran2008 feature 'EXECUTE_COMMAND_LINE' not yet supported by 224 !> PGI 18.10 compiler. Hence, non-standard 'SYSTEM' call must be used 225 ! CALL EXECUTE_COMMAND_LINE( & 226 ! COMMAND='rm ' // TRIM( config_file_name ) // TRIM( file_suffix ), & 227 ! WAIT=.TRUE., EXITSTAT=return_value ) 228 CALL SYSTEM( 'rm ' // TRIM( config_file_name ) // TRIM( file_suffix ) ) 226 229 ENDIF 227 230 … … 265 268 CALL internal_message( 'debug', routine_name // & 266 269 ': remove existing file ' // TRIM( bin_filename ) ) 267 CALL EXECUTE_COMMAND_LINE( COMMAND='rm ' // TRIM( bin_filename ), & 268 WAIT=.TRUE., EXITSTAT=return_value ) 270 !> @note Fortran2008 feature 'EXECUTE_COMMAND_LINE' not yet supported by 271 !> PGI 18.10 compiler. Hence, non-standard 'SYSTEM' call must be used 272 ! CALL EXECUTE_COMMAND_LINE( COMMAND='rm ' // TRIM( bin_filename ), & 273 ! WAIT=.TRUE., EXITSTAT=return_value ) 274 CALL SYSTEM( 'rm ' // TRIM( bin_filename ) ) 269 275 ENDIF 270 276
Note: See TracChangeset
for help on using the changeset viewer.