- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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?
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Line 44 looks blank when it should be continuation maybe?
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I tried put & in blank lines -> error #5153: Illegal continuation. No valid non_commentary source following &
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Thank you Steve, and sorry for my stupidity! Second reason. In my main program KP is declared correctly.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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 . . .
![](/skins/images/D2683F18326913BBA0436CB7114DD569/responsive_peak/images/icon_anonymous_message.png)
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page