Re: converting a 700,000+ line Fortran 77 plus 50,000+ line C++ program to C++, part 2

On Thu, 17 Apr 2025 12:24:22 +0200, R Daneel Olivaw wrote:

Steven G. Kargl wrote:

On Wed, 16 Apr 2025 07:44:08 +0000, Lawrence D'Oliveiro wrote:
 

On Tue, 15 Apr 2025 18:28:31 -0500, Lynn McGuire wrote:
>

On 4/15/2025 6:14 PM, Lawrence D'Oliveiro wrote:

>
On Mon, 14 Apr 2025 23:50:32 -0500, Lynn McGuire wrote:
>

Got rid of a few nasty bugs like:
>
         iword = 6Habcdef

>
Surely whether that’s a bug or not would depend on the type of “iword”
...

>
iword is a implicit 4 byte integer capable of storing 4 characters.

>
I thought you got rid of all the implicit typing.

 
Implicit typing has nothing do with numeric storage size.
 
program foo
    use iso_fortran_env, only : numeric_storage_size
    integer :: j = 0
    i = 6Habcdef    ! i has an implicit type of default integer kind
    j = 6Habcdef    ! j has an explicit type of default integer kind
    print *, i, j
    print *, numeric_storage_size
end program foo
 

(snip)

I believe you'll find that some of that syntax did not exist under
Fortran 77, in particular the "use" line.
Did Lynn convert to F90 first?

Of course, the USE statement was not part of FORTRAN 77.
(It was added in Fortran 90).  The intrinsic module
iso_fortran_env was not part of FORTRAN 77.  (It was
added in Fortran 2003).  I included that line to easily
get to the number of bits in a numeric storage unit.
From ANSI X3.9-1978 (i.e., FORTRAN 77):

   An integer, real, or logical datum has one numeric
   storage unit in a storage sequence.
   ...
   This standard does not specify a relationship between
   the storage sequence concept and the physical properties
   or implementation of storage.

The size of the unit was not specified in FORTRAN 77, and
this concept is still alive in Fortran 2023.

--
steve