From 815d0dd7cb48aeceb966a34615da1e05c30868f7 Mon Sep 17 00:00:00 2001
From: Tobias Kortkamp <tobik@FreeBSD.org>
Date: Sat, 4 Jul 2020 12:15:58 +0000
Subject: [PATCH] biology/psi88: Unbreak build with GCC 10

ctplot.f:69:29:

   69 |       CALL SYMBOL (XA,YA,.15,STRING,ANGLE,K)
      |                             1
Error: Rank mismatch in argument 'string' at (1) (scalar and rank-1)

http://package18.nyi.freebsd.org/data/121amd64-default-PR244494/2020-06-10_18h04m44s/logs/errors/psi88-1.0_16.log

PR:		246700
---
 biology/psi88/Makefile | 1 +
 1 file changed, 1 insertion(+)

diff --git a/biology/psi88/Makefile b/biology/psi88/Makefile
index 723191f05722..5a8e5869a76e 100644
--- a/biology/psi88/Makefile
+++ b/biology/psi88/Makefile
@@ -13,6 +13,7 @@ COMMENT=	Plotting wavefunctions (molecular orbitals) in 3D
 
 USES=		fortran tar:Z
 MAKE_ARGS=	BIN=${STAGEDIR}${PREFIX}/bin
+FFLAGS+=	-std=legacy
 
 PLIST_FILES=	bin/PSI1 bin/PSICON bin/PSI2CT bin/PSI2HP bin/PSI2PS bin/PSI2 \
 		bin/PREPLOT bin/preplot bin/rpsi1 bin/rpsi2 bin/rpsicon