possibly incorrect g77 syntax error message

[Emil Hallin <emil at cls dot usask dot ca>]

Hi,
When I compile the following fortran function with g77 I get a syntax
error that I think is not correct (it compiles fine on Watcom 11
fortran). I have included the fortran file and error message as
attachments for those who might prefer to see them that way.

Here is the version of g77 I am using (same thing happens with current
CVS source built on intel linux RH6.1): 

g77 --version
GNU Fortran 0.5.25 19991024 (release)
Copyright (C) 1997 Free Software Foundation, Inc.
For more version information on components of the GNU Fortran
compilation system, especially useful when reporting bugs,
type the command `g77 --verbose'.

GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of GNU Fortran
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING
or type the command `info -f g77 Copying'.

Here is the error message I get:
g77 -c test123.f -o test123.o
test123.f: In function `tryit':
test123.f:12:
    &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0
             ^
Period at (^) not followed by digits for floating-point number or 
by `NOT.', `TRUE.', or `FALSE.'
test123.f:12:
    &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0
             ^
Invalid form for DATA statement at (^)
test123.f:12:
    &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0
             ^
Too few initial values in list of initializers for `a' at (^)

The snippet of code is as follows:
      double precision function tryit(k)
      implicit double precision (a-h,o-z)
      dimension a(100)
      data (a(k),k=1,100)/
     &  461904.6285714286d0,-338522.8172195650d0,-134188.3826330945d0,
     & 1224917.281612405d0,  839777.8119190406d0, -14722.27542354662d0,
     &  -28752.76677743963d0, 17559.71526102492d0,  7531.385520293790d0,
     &   10162.59993007690d0,-59637.19030976763d0,-52592.20471033397d0,
     &   -1509.943936916021d0, 3429.465514693014d0,-1694.234343945828d0,
     &    -412.4642513588372d0,-771.8756555594653d0,5048.147334278087d0,
     &    5096.968116166064d0,  533.2677925364562d0,
-84.36499146072562d0,
     &     349.7120367495403d0, 267.4315454437577d0,
213.0444007033096d0,
     &    -248.2444723301185d0,-313.9326637677008d0, 
27.83649754041712d0,
     &     177.7370877639193d0, 
12.32298112940429d0,133.6789475533487d0,
     &      18.64085535065390d0,152.7005644513549d0, 
74.22321838037993d0,
     &     110.7911828183424d0,  33.51924585712681d0,
77.32667442499877d0,
     &      53.23602577975604d0, 57.18682258944803d0,
49.49246527870179d0,
     &      46.70253262446201d0, 46.27298600915950d0,
49.47234085283681d0,
     &      39.09822118183493d0, 50.60097055731093d0,
22.02181821840204d0,
     &      59.03751390981441d0, 14.78071089995543d0,
56.47728140297912d0,
     &      15.41701041857696d0, 56.64480495775947d0, 
8.867515403318820d0,
     &      43.75614165746457d0, 16.22538420841526d0,
39.28026424229725d0,
     &      20.20699581353119d0, 32.91704038300496d0,
23.25816962964250d0,
     &      28.98103359220141d0, 19.54110121548126d0,
29.12114520460265d0,
     &      18.19048659132261d0, 32.15731663808667d0, 
9.272518864050385d0,
     &      31.69099081800446d0, 
7.608951070603947d0,34.36364451158104d0,
     &       5.855965954856888d0,32.57072195069185d0, 
7.014869082921717d0,
     &      24.55455161653929d0, 
6.237724415349177d0,22.70307253746462d0,
     &      12.14026788997564d0, 15.38879387005048d0,
15.38532184891208d0,
     &      15.96424030181652d0, 11.49726582373110d0,
13.35549387284342d0,
     &      17.45042930575537d0, 14.49970176193603d0, 
6.118995861545767d0,
     &      16.32006280502381d0, 11.49765653210380d0,
19.25709570717501d0,
     &       8.995964400004252d0,21.18586024803900d0, 
7.686363131897639d0,
     &      14.21462486858620d0, 
4.894396406168025d0,16.95202666922457d0,
     &      12.13669169138723d0, 13.47330723950214d0,
10.39515415919642d0,
     &      14.75141661280306d0, 
9.347544171874434d0,10.78251856053053d0,
     &       6.124335331621731d0, 9.219637467708232d0,
5.285463022578457d0,
     &      16.69747522830103d0/
      pi=4.d0*datan(1.d0)
      z0=-35.0d0+dfloat(k-1)*0.05d0
      fz=a(1)/2
      do 10 j=2,100
   10 fz=fz+a(j)*dcos(dfloat(j-1)*pi*z0/35.0d0)
      return
      end

I have examined the source code with "od -tc" and find no spurious
characters anywhere near the apparent problem. If anyone can find the
syntax error, I'd like to hear from you!
	emil
      double precision function tryit(k)
      implicit double precision (a-h,o-z)
      dimension a(100)
      data (a(k),k=1,100)/
     &  461904.6285714286d0,-338522.8172195650d0,-134188.3826330945d0,
     & 1224917.281612405d0,  839777.8119190406d0, -14722.27542354662d0,
     &  -28752.76677743963d0, 17559.71526102492d0,  7531.385520293790d0,
     &   10162.59993007690d0,-59637.19030976763d0,-52592.20471033397d0,
     &   -1509.943936916021d0, 3429.465514693014d0,-1694.234343945828d0,
     &    -412.4642513588372d0,-771.8756555594653d0,5048.147334278087d0,
     &    5096.968116166064d0,  533.2677925364562d0, -84.36499146072562d0,
     &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0,
     &    -248.2444723301185d0,-313.9326637677008d0,  27.83649754041712d0,
     &     177.7370877639193d0,  12.32298112940429d0,133.6789475533487d0,
     &      18.64085535065390d0,152.7005644513549d0,  74.22321838037993d0,
     &     110.7911828183424d0,  33.51924585712681d0, 77.32667442499877d0,
     &      53.23602577975604d0, 57.18682258944803d0, 49.49246527870179d0,
     &      46.70253262446201d0, 46.27298600915950d0, 49.47234085283681d0,
     &      39.09822118183493d0, 50.60097055731093d0, 22.02181821840204d0,
     &      59.03751390981441d0, 14.78071089995543d0, 56.47728140297912d0,
     &      15.41701041857696d0, 56.64480495775947d0,  8.867515403318820d0,
     &      43.75614165746457d0, 16.22538420841526d0, 39.28026424229725d0,
     &      20.20699581353119d0, 32.91704038300496d0, 23.25816962964250d0,
     &      28.98103359220141d0, 19.54110121548126d0, 29.12114520460265d0,
     &      18.19048659132261d0, 32.15731663808667d0,  9.272518864050385d0,
     &      31.69099081800446d0,  7.608951070603947d0,34.36364451158104d0,
     &       5.855965954856888d0,32.57072195069185d0,  7.014869082921717d0,
     &      24.55455161653929d0,  6.237724415349177d0,22.70307253746462d0,
     &      12.14026788997564d0, 15.38879387005048d0, 15.38532184891208d0,
     &      15.96424030181652d0, 11.49726582373110d0, 13.35549387284342d0,
     &      17.45042930575537d0, 14.49970176193603d0,  6.118995861545767d0,
     &      16.32006280502381d0, 11.49765653210380d0, 19.25709570717501d0,
     &       8.995964400004252d0,21.18586024803900d0,  7.686363131897639d0,
     &      14.21462486858620d0,  4.894396406168025d0,16.95202666922457d0,
     &      12.13669169138723d0, 13.47330723950214d0, 10.39515415919642d0,
     &      14.75141661280306d0,  9.347544171874434d0,10.78251856053053d0,
     &       6.124335331621731d0, 9.219637467708232d0, 5.285463022578457d0,
     &      16.69747522830103d0/
      pi=4.d0*datan(1.d0)
      z0=-35.0d0+dfloat(k-1)*0.05d0
      fz=a(1)/2
      do 10 j=2,100
   10 fz=fz+a(j)*dcos(dfloat(j-1)*pi*z0/35.0d0)
      return
      end
test123.f: In function `tryit':
test123.f:12: 
        &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0
                 ^
Period at (^) not followed by digits for floating-point number or by `NOT.', `TRUE.', or `FALSE.'
test123.f:12: 
        &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0
                  ^
Invalid form for DATA statement at (^)
test123.f:12: 
        &     349.7120367495403d0, 267.4315454437577d0, 213.0444007033096d0
                  ^
Too few initial values in list of initializers for `a' at (^)