PROGRAM stress INTERFACE SUBROUTINE squash(a,n) REAL :: a(n) END SUBROUTINE END INTERFACE INTEGER, PARAMETER :: m = 100 REAL :: q(m) q=71 CALL squash(q,m) ...