Path: ...!weretis.net!feeder9.news.weretis.net!news.quux.org!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: db <dieterhansbritz@gmail.com>
Newsgroups: comp.lang.fortran
Subject: Re: TINY
Date: Wed, 27 Nov 2024 15:49:18 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 34
Message-ID: <vi7f1u$2ivu$1@dont-email.me>
References: <vi4mo4$3g3dc$1@dont-email.me> <vi4qjp$3gosf$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 27 Nov 2024 16:49:18 +0100 (CET)
Injection-Info: dont-email.me; posting-host="67c6f5a37c11e3d1d674f09182133c00";
	logging-data="84990"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/Wi/hEEgfdN5E5Rwg4K2eqXims9iwwf40="
User-Agent: Pan/0.149 (Bellevue; 4c157ba)
Cancel-Lock: sha1:hmkIFdjCdzwVkTd1ts2ToKZBul4=
Bytes: 2029

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