New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Ticket Comment Diff – NEMO

Changes between Initial Version and Version 1 of Ticket #2579, comment 9


Ignore:
Timestamp:
2020-12-03T18:52:39+01:00 (3 years ago)
Author:
nemo
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #2579, comment 9

    initial v1  
    11Ok, There is an issue with some compilers that will need a work-around. The 'big 3' all work and when it doesn't work it is because the behaviour is different between internal and external files. Regardless of the exact wording of the standard, this should not be acceptable. Here is a better test program and results with the compilers I've been able to test. This option has been in the trunk for at least 6 months (possibly longer) so clearly not affecting most users. 
    2 {{{ 
    3 cat test.f90 
    42 
     3{{{#!f 
    54integer :: i,j, a, b, pos 
    65CHARACTER(LEN=80)   :: buff 
     
    2322read(buff,namctl) ; print *, 'namctl from internal file: ',a,b 
    2423end 
     24}}} 
    2525 
     26{{{ 
    2627---------------------------- 
    2728gfortran test 
     
    6162FIO-F-228/namelist read/internal file/end of file reached without finding group. 
    6263 In source file test.f90, at line number 19 
     64}}} 
    6365 
    64 cat tryme.nl 
     66{{{#!f 
    6567 &nammpp i = 10 j =  4/ 
    6668 &namctl a = 5 b = 3 /