Changeset 4108 for palm/trunk/SOURCE

Timestamp:

Jul 22, 2019 9:48:42 AM (5 years ago)

Author:

gronemeier

Message:

bugfix: replace f08 procedure "execute_command_line" by non-standard procedure "system" due to missing compiler implementation in PGI compiler

File:

• palm/trunk/SOURCE/data_output_binary_module.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_binary_module.f90

@@ -221 +221 @@
                                    ': Remove existing file ' // &
                                    TRIM( config_file_name ) // TRIM( file_suffix ) )
-            CALL EXECUTE_COMMAND_LINE(                                                &
-                    COMMAND='rm ' // TRIM( config_file_name ) // TRIM( file_suffix ), &
-                    WAIT=.TRUE., EXITSTAT=return_value )
+            !> @note Fortran2008 feature 'EXECUTE_COMMAND_LINE' not yet supported by
+            !>       PGI 18.10 compiler. Hence, non-standard 'SYSTEM' call must be used
+            ! CALL EXECUTE_COMMAND_LINE(                                                &
+            !         COMMAND='rm ' // TRIM( config_file_name ) // TRIM( file_suffix ), &
+            !         WAIT=.TRUE., EXITSTAT=return_value )
+            CALL SYSTEM( 'rm ' // TRIM( config_file_name ) // TRIM( file_suffix ) )
          ENDIF
 
@@ -265 +268 @@
          CALL internal_message( 'debug', routine_name // &
                                          ': remove existing file ' // TRIM( bin_filename ) )
-         CALL EXECUTE_COMMAND_LINE( COMMAND='rm ' // TRIM( bin_filename ), &
-                                    WAIT=.TRUE., EXITSTAT=return_value )
+         !> @note Fortran2008 feature 'EXECUTE_COMMAND_LINE' not yet supported by
+         !>       PGI 18.10 compiler. Hence, non-standard 'SYSTEM' call must be used
+         ! CALL EXECUTE_COMMAND_LINE( COMMAND='rm ' // TRIM( bin_filename ), &
+         !                            WAIT=.TRUE., EXITSTAT=return_value )
+         CALL SYSTEM( 'rm ' // TRIM( bin_filename ) )
       ENDIF