Changeset 4108 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_binary_module.f90

    r4107 r4108  
    221221                                   ': Remove existing file ' // &
    222222                                   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 ) )
    226229         ENDIF
    227230
     
    265268         CALL internal_message( 'debug', routine_name // &
    266269                                         ': 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 ) )
    269275      ENDIF
    270276
Note: See TracChangeset for help on using the changeset viewer.