Ignore:
Timestamp:
Apr 20, 2012 2:47:14 PM (12 years ago)
Author:
raasch
Message:

test: unit 14 (BINOUT) is opened without APPEND feature)

File:
1 edited

Legend:

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

    r850 r887  
    44! Current revisions:
    55! -----------------
    6 !
     6! Test: append feature removed from unit 14
    77!
    88! Former revisions:
     
    253253#endif
    254254             OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char, &
    255                         FORM='UNFORMATTED', POSITION='APPEND' )
     255                        FORM='UNFORMATTED' )
    256256          ENDIF
    257257
Note: See TracChangeset for help on using the changeset viewer.