topic Re: Struggling with line continuation in Intel® Fortran Compiler

Struggling with line continuation

RoyRogers — Mon, 16 Dec 2024 17:04:15 GMT

 character :: wch9*47 = 'Scdap component-fission product &'
&                       'number (nn).'
  character :: wcha*46 = 'Scdap component-axial-mesh &'
&                        'number (iikkjj).'
  character :: wchb*33 = 'Couple creep rupture number (nn).'
  character :: wchc*33 = 'ASYST creep rupture number (nn).'
  character :: wchd*27 = 'Couple node number (nnn01).'
  character :: wche*48 = 'Couple fission product-node &'
&                        'number (iinnn01).'

Here are the errors that I am getting
graphics\3d\displayw3.for(35): error #5082: Syntax error, found CHARACTER_CONSTANT '(cccg0ssnn).' when expecting one of: ( * ) :: , <END-OF-STATEMENT> ; . (/ + - : ] /) ' ** / // > .LT. ...
&                               '(cccg0ssnn).'
--------------------------------^
graphics\3d\displayw3.for(42): error #5082: Syntax error, found CHARACTER_CONSTANT 'number (nn).' when expecting one of: ( * ) :: , <END-OF-STATEMENT> ; . (/ + - : ] /) ' ** / // > .LT. ...
&                              'number (nn).'
-------------------------------^
graphics\3d\displayw3.for(44): error #5082: Syntax error, found CHARACTER_CONSTANT 'number (iikkjj).' when expecting one of: ( * ) :: , <END-OF-STATEMENT> ; . (/ + - : ] /) ' ** / // > .LT. ...
&                              'number (iikkjj).'
-------------------------------^
graphics\3d\displayw3.for(49): error #5082: Syntax error, found CHARACTER_CONSTANT 'number (iinnn01).' when expecting one of: ( * ) :: , <END-OF-STATEMENT> ; . (/ + - : ] /) ' ** / // > .LT. ...
&                              'number (iinnn01).'
-------------------------------^

Re: Struggling with line continuation

Steve_Lionel — Mon, 16 Dec 2024 17:30:44 GMT

That's not how continuation works in Fortran. Here's one approach:

character :: wch9*47 = 'Scdap component-fission product & &number (nn).' character :: wcha*46 = 'Scdap component-axial-mesh & &number (iikkjj).' character :: wchb*33 = 'Couple creep rupture number (nn).' character :: wchc*33 = 'ASYST creep rupture number (nn).' character :: wchd*27 = 'Couple node number (nnn01).' character :: wche*48 = 'Couple fission product-node & &number (iinnn01).'

Or you could do this:

character :: wch9*47 = 'Scdap component-fission product ' // & & 'number (nn).' character :: wcha*46 = 'Scdap component-axial-mesh ' // & & 'number (iikkjj).' character :: wchb*33 = 'Couple creep rupture number (nn).' character :: wchc*33 = 'ASYST creep rupture number (nn).' character :: wchd*27 = 'Couple node number (nnn01).' character :: wche*48 = 'Couple fission product-node ' // & & 'number (iinnn01).'

Re: Struggling with line continuation

Steve_Lionel — Mon, 16 Dec 2024 18:55:25 GMT

I should also note that, rather than variables these should probably be PARAMETER constants. So instead of, for example:

character :: wch9*47 =

you'd write:

character(*), parameter :: wch9 =

The length will be taken automatically from the value.

Re: Struggling with line continuation

andrew_4619 — Mon, 16 Dec 2024 21:19:35 GMT

Given you have moved to freeform why not go with 132 character lines, your example with be a lot easier to read and it would save you time.

The Fortran 2023 line length limit (10000) is going a bit far and Intel does not support that if yet if you use standards checking.