Path: utzoo!mnetor!uunet!husc6!uwvax!rutgers!cbmvax!vu-vlsi!perry
From: perry@vu-vlsi.UUCP (Rick Perry)
Newsgroups: comp.lang.fortran
Subject: Re: bug fix for f77 (4,3 bsd) entry statement ?
Message-ID: <1290@vu-vlsi.UUCP>
Date: 12 Jan 88 13:38:41 GMT
References: <3124@briar.Philips.Com>
Reply-To: perry@vu-vlsi.UUCP (Rick Perry)
Organization: Villanova Univ. EE Dept.
Lines: 28
Keywords: f77, entry, bug

In article <3124@briar.Philips.Com> mrs@philabs.Philips.Com (Mark R. Simpson) writes:
>..
>% cat foo.f
>      subroutine getc(char)
>      character        char,chas*(*)
>..
>Error on line 2 of foo.f: Declaration error for chas: illegal adjustable length character variable

   Although your original routine did compile ok here (Pyramid 90x OSx4.0)
I have had problems in the past with this type of thing and found that
having a dummy routine name which includes all of the entry point arguments
made the compiler happy, i.e.

      subroutine getcs(char,chas,n)
      character char,chas*(*)
      integer n

      entry getc(char)
      return

      entry gets(chas,n)
      return
      end

...Rick			perry@vu-vlsi.UUCP, perry@vuvaxcom.BITNET

Dr. Rick Perry, Department of Electrical Engineering
Villanova University, Villanova, PA 19085, 215-645-4969, -4970