yasnippet/extras/imported/f90-mode/Open.../Scratch File.yasnippet
2009-08-29 17:59:02 +00:00

8 lines
258 B
Plaintext

# -*- mode: snippet -*-
# key: open
# contributor: Translated from TextMate Snippet
# name: Scratch File
# --
open(unit=${1:iounit}, iostat=${3:ios}, status="${4:scratch}", action="${5:readwrite}")
if ( $3 /= 0 ) stop "Error opening scratch file on unit $1"