1. Forum
  2. Newsgroups
  3. comp.lang.fortran

  • TINY

    From db@[email protected] to comp.lang.fortran on Tue Nov 26 14:42:12 2024
    From Newsgroup: comp.lang.fortran

    I have been using the Fortran inbuilt function TINY (running
    gfortran) but now the compiler baulks:

    5 | print '(" Tiny(1) =", es12.2)', TINY(1.0_dbl)
    | 1
    Error: Syntax error in PRINT statement at (1)

    (I am defining dbl in a module).

    What is going on?

    rm X.out
    --
    db
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Steven G. Kargl@[email protected] to comp.lang.fortran on Tue Nov 26 15:48:09 2024
    From Newsgroup: comp.lang.fortran

    On Tue, 26 Nov 2024 14:42:12 +0000, db wrote:

    I have been using the Fortran inbuilt function TINY (running
    gfortran) but now the compiler baulks:

    5 | print '(" Tiny(1) =", es12.2)', TINY(1.0_dbl)
    | 1
    Error: Syntax error in PRINT statement at (1)

    (I am defining dbl in a module).

    What is going on?

    Do you have an unprintable control character somewhere
    in that line of code?

    Kind of hard to say anything more without seeing a
    minimum complete code.

    What version of gfortran and what OS and hardware?
    --
    steve
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From db@[email protected] to comp.lang.fortran on Wed Nov 27 15:49:18 2024
    From Newsgroup: comp.lang.fortran

    On Tue, 26 Nov 2024 15:48:09 -0000 (UTC), Steven G. Kargl wrote:

    On Tue, 26 Nov 2024 14:42:12 +0000, db wrote:

    I have been using the Fortran inbuilt function TINY (running gfortran)
    but now the compiler baulks:

    5 | print '(" Tiny(1) =", es12.2)', TINY(1.0_dbl)
    | 1
    Error: Syntax error in PRINT statement at (1)

    (I am defining dbl in a module).

    What is going on?

    Do you have an unprintable control character somewhere in that line of
    code?

    Kind of hard to say anything more without seeing a minimum complete
    code.

    What version of gfortran and what OS and hardware?

    The problem was in that line, so I considered the
    rest of the (longish) program irrelevant. But OK.

    You might be right about an unprintable, because
    when I made up a small mini-example, TINY works.
    Meanwhile I had changed it in the offending function
    to 1.0E-10_dbl, which fixed it, but I don't like it.
    I will now try going back to using TINY.
    --
    db
    --- Synchronet 3.20a-Linux NewsLink 1.114