# -*- mode: snippet -*-
# key: al
# contributor: Translated from TextMate Snippet
# name: Allocate Array
# --
allocate(${1:array}, stat=${2:err})
if ($2 /= 0) print *, "${1/(\w+).*/$1/}: Allocation request denied"