# -*- mode: snippet -*-
# key: deal
# contributor: Translated from TextMate Snippet
# name: Deallocate Array
# --
if (allocated($1)) deallocate(${1:array}, stat=${2:err})
if ($2 /= 0) print *, "$1: Deallocation request denied$0"