Wandering error

Mike_Z_ · ‎06-26-2016

At compilation the following test program compiler shows error:

test.f90(45): error #5082: Syntax error, found ')' when expecting one of: <REAL_KIND_CON> <REAL_CONSTANT> <DBLPRC_CONSTANT> <DBLPRC_KIND_CON> <QUAPRC_CONSTANT> ...

program tst
implicit none
complex(16) zs, mg

zs = (1.0q0, 2.0q0)
mg = zs*( 1.000000000000000000000000000000000e000_kp + zs*( 5.772156649015328606065120900824024e-01_kp + &
     zs*(-6.558780715202538810770195151453905e-01_kp + zs*(-4.200263503409523552900393487542982e-02_kp + &
     zs*( 1.665386113822914895017007951021052e-01_kp + zs*(-4.219773455554433674820830128918739e-02_kp + &
     zs*(-9.621971527876973562114921672348199e-03_kp + zs*( 7.218943246663099542395010340446573e-03_kp + &
     zs*(-1.165167591859065112113971084018389e-03_kp + zs*(-2.152416741149509728157299630536478e-04_kp + &

     zs*( 1.280502823881161861531986263281643e-04_kp + zs*(-2.013485478078823865568939142102182e-05_kp + &
     zs*(-1.250493482142670657345359473833092e-06_kp + zs*( 1.133027231981695882374129620330745e-06_kp + &
     zs*(-2.056338416977607103450154130020573e-07_kp + zs*( 6.116095104481415817862498682855343e-09_kp + &
     zs*( 5.002007644469222930055665048059991e-09_kp + zs*(-1.181274570487020144588126565436506e-09_kp + &
     zs*( 1.043426711691100510491540332312250e-10_kp + zs*( 7.782263439905071254049937311360777e-12_kp + &

     zs*(-3.696805618642205708187815878085766e-12_kp + zs*( 5.100370287454475979015481322863232e-13_kp + &
     zs*(-2.058326053566506783222429544855237e-14_kp + zs*(-5.348122539423017982370017318727940e-15_kp + &
     zs*( 1.226778628238260790158893846622422e-15_kp + zs*(-1.181259301697458769513764586842298e-16_kp + &
     zs*( 1.186692254751600332579777242928674e-18_kp + zs*( 1.412380655318031781555803947566709e-18_kp + &
     zs*(-2.298745684435370206592478580633699e-19_kp + zs*( 1.714406321927337433383963370267257e-20_kp + &

     zs*( 1.337351730493693114864781395122268e-22_kp + zs*(-2.054233551766672789325025351355734e-22_kp + &
     zs*( 2.736030048607999844831509904330982e-23_kp + zs*(-1.732356445910516639057428451564780e-24_kp + &
     zs*(-2.360619024499287287343450735427531e-26_kp + zs*( 1.864982941717294430718413161878667e-26_kp + &
     zs*(-2.218095624207197204399716913626860e-27_kp + zs*( 1.297781974947993668824414486330594e-28_kp + &
     zs*( 1.180697474966528406222745415509972e-30_kp + zs*(-1.124584349277088090293654674261440e-30_kp + &

     zs*( 1.277085175140866203990206677751125e-31_kp + zs*(-7.391451169615140823461289330108553e-33_kp + &
     zs*( 1.134750257554215760954165259469306e-35_kp + zs*( 4.639134641058722029944804907952228e-35_kp + &
     zs*(-5.347336818439198875077418196709893e-36_kp + zs*( 3.207995923613352622861237279082794e-37_kp + &
     zs*(-4.445829736550756882101590352124644e-39_kp + zs*(-1.311174518881988712901058494389922e-39_kp + &
     zs*( 1.647033352543813886818259327906394e-40_kp + zs*(-1.056233178503581218600561071538285e-41_kp + &

     zs*( 2.678442982643049478354963071890852e-43_kp + zs*( 2.424715494851782689673032938370921e-44_kp + &
     zs*(-3.736587834535612554034559121270316e-45_kp + zs*( 2.628332980940195449089037611873639e-46_kp + &
     zs*(-9.298175995376886299601668991518173e-48_kp + zs*(-2.327942418699470598604262055622292e-49_kp + &
     zs*( 6.169620835244387420354431773150548e-50_kp + zs*(-4.928295586770989930504458682212533e-51_kp + &
     zs*( 2.183513183414510697277828498691356e-52_kp + zs*(-1.218722189147516555250452605074758e-54_kp + &

     zs*(-7.117108841662874631945652733848302e-55_kp + zs*( 6.920504054328689253528422229066270e-56_kp + &
     zs*(-3.676438468356676327679748481822479e-57_kp + zs*( 8.563098056275654327981712454743157e-59_kp + &

     ))))) )))))  ))))) )))))  ))))) )))))  ))))) )))))  ))))) ))))) ))))) ))))) ))))
end program tst

pointing to 10th bracket in the penultimate line. In my big program it points to another bracket in the same line.

What's wrong?

andrew_4619 · ‎06-26-2016

Line 44 looks blank when it should be continuation maybe?

Mike_Z_ · ‎06-26-2016

I tried put & in blank lines -> error #5153: Illegal continuation. No valid non_commentary source following &

Steven_L_Intel1 · ‎06-26-2016

Two problems.

You're missing a declaration of kp as a PARAMETER constant
Line 43 ends with a + but there is no operand following that.

Mike_Z_ · ‎06-26-2016

Thank you Steve, and sorry for my stupidity! Second reason. In my main program KP is declared correctly.

FortranFan · ‎06-26-2016

Mike Z. wrote:

Thank you Steve, and sorry for my stupidity! Second reason. In my main program KP is declared correctly.

Is this what you're trying to do? If so, use modern syntax to make it easier to read the code, especially anyone who inherits the code.

program tst

   use, intrinsic :: iso_fortran_env, only : kp => real128

   implicit none

   real(kp), parameter :: Q(*) = [                                                                  &
     1.0_kp,                                      5.772156649015328606065120900824024e-01_kp,       &
     -6.558780715202538810770195151453905e-01_kp, -4.200263503409523552900393487542982e-02_kp,      &
     1.665386113822914895017007951021052e-01_kp,  -4.219773455554433674820830128918739e-02_kp,      &
     -9.621971527876973562114921672348199e-03_kp, 7.218943246663099542395010340446573e-03_kp,       &
     -1.165167591859065112113971084018389e-03_kp, -2.152416741149509728157299630536478e-04_kp,      &
     1.280502823881161861531986263281643e-04_kp,  -2.013485478078823865568939142102182e-05_kp,      &
     -1.250493482142670657345359473833092e-06_kp, 1.133027231981695882374129620330745e-06_kp,       &
     -2.056338416977607103450154130020573e-07_kp, 6.116095104481415817862498682855343e-09_kp,       &
     5.002007644469222930055665048059991e-09_kp,  -1.181274570487020144588126565436506e-09_kp,      &
     1.043426711691100510491540332312250e-10_kp,  7.782263439905071254049937311360777e-12_kp,       &
     -3.696805618642205708187815878085766e-12_kp, 5.100370287454475979015481322863232e-13_kp,       &
     -2.058326053566506783222429544855237e-14_kp, -5.348122539423017982370017318727940e-15_kp,      &
     1.226778628238260790158893846622422e-15_kp,  -1.181259301697458769513764586842298e-16_kp,      &
     1.186692254751600332579777242928674e-18_kp,  1.412380655318031781555803947566709e-18_kp,       &
     -2.298745684435370206592478580633699e-19_kp, 1.714406321927337433383963370267257e-20_kp,       &
     1.337351730493693114864781395122268e-22_kp,  -2.054233551766672789325025351355734e-22_kp,      &
     2.736030048607999844831509904330982e-23_kp,  -1.732356445910516639057428451564780e-24_kp,      &
     -2.360619024499287287343450735427531e-26_kp, 1.864982941717294430718413161878667e-26_kp,       &
     -2.218095624207197204399716913626860e-27_kp, 1.297781974947993668824414486330594e-28_kp,       &
     1.180697474966528406222745415509972e-30_kp,  -1.124584349277088090293654674261440e-30_kp,      &
     1.277085175140866203990206677751125e-31_kp,  -7.391451169615140823461289330108553e-33_kp,      &
     1.134750257554215760954165259469306e-35_kp,  4.639134641058722029944804907952228e-35_kp,       &
     -5.347336818439198875077418196709893e-36_kp, 3.207995923613352622861237279082794e-37_kp,       &
     -4.445829736550756882101590352124644e-39_kp, -1.311174518881988712901058494389922e-39_kp,      &
     1.647033352543813886818259327906394e-40_kp,  -1.056233178503581218600561071538285e-41_kp,      &
     2.678442982643049478354963071890852e-43_kp,  2.424715494851782689673032938370921e-44_kp,       &
     -3.736587834535612554034559121270316e-45_kp, 2.628332980940195449089037611873639e-46_kp,       &
     -9.298175995376886299601668991518173e-48_kp, -2.327942418699470598604262055622292e-49_kp,      &
     6.169620835244387420354431773150548e-50_kp,  -4.928295586770989930504458682212533e-51_kp,      &
     2.183513183414510697277828498691356e-52_kp,  -1.218722189147516555250452605074758e-54_kp,      &
     -7.117108841662874631945652733848302e-55_kp, 6.920504054328689253528422229066270e-56_kp,       &
     -3.676438468356676327679748481822479e-57_kp, 8.563098056275654327981712454743157e-59_kp  ]

   complex(kp), parameter :: zero = ( 0.0_kp, 0.0_kp )
   complex(kp), parameter :: zs = ( 1.0_kp, 2.0_kp )
   complex(kp) :: mg
   integer :: I

   mg = zero
   do I = size(Q), 1, -1
      mg = zs*(Q(I) + mg)
   end do

   print *, "mg   = ", mg

   stop

end program tst

Upon execution,

 mg   =
 (6.47307362601913450156361287401753,-0.843943840773202145488299862783640)
Press any key to continue . . .