forums.silverfrost.com

I have been using a small group of single line statement functions (both with and without IMPLICIT NONE) for 45 years with no problems at all.

Many thanks, John. It works exactly as you stated. The only drawback is, I believe, that TRANSPARENT is not a standard Fortran feature? However, it produces exactly what I needed.

I can reproduce lines consisting of n space characters, but not lines containing nothing at all.

I have a program that reads a text file line by line, making occasional adjustments, then outputting the (revised) line character by character.
This works fine except for completely blank lines. Us ...

PRINT *,TRIM(STRINGS) fails to compile

but STRINGS=TRIM(STRINGS) compiles OK

I didn't have this problem in 2009 but now -

CHARACTER*8 STRINGS(3)
STRINGS=(/'Longer ','Short ','Longest '/)
STRINGS=TRIM(STRINGS)
PRINT '(/(A8))',STRINGS
END

doesn't work properly. OK ...

I don't know what you are doing, or not doing, but your
program works for me just as you listed it -

with and without any 'close' statement
with and without the 'stop' statement

Or, simply, remove the 'stop' statement. END closes all files.

The following statement (from the Intel Fortran Reference manual)

REAL PI/3.14159/, E/2.71828/, QARRAY(10)/5*0.0,5*1.0/

produces the error '*** Not enough variables in DATA statement'
whe ...

The following compile OK

INTEGER*1 BYTE(2)/1,2/, BYTE1/3/

or

INTEGER*1 BYTE1, BYTE(2)/1,2/

but this (and variations of it)

INTEGER*1 BYTE1/3/, BYTE(2)/1,2/

produces the compila ...

I have just tested

IF(X/=Y)THEN
print *,'not equal'
ELSE
print *,'equal'
END IF

It works. Try it again

Try /=

Klaus, which version are you using?

Using v5.0.0, I have tried all permutations (of Integer, Single and Double)
and all yield the correct answers.

It depends on the order of the arguments?

Try I,R then D - correct!
but R,D and I - incorrect