https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89981
--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Without -pedantic I get the following warnings
sadmvnt.f:80:15:
80 | INFORM = MVNNIT( N, CORREL, LOWER, UPPER, INFIN, INFIS, D, E )
| 1
Warning: More actual than formal arguments in procedure call at (1)
sadmvnt.f:1432:15:
1432 | INFORM = MVTNIT( N, NU, CORREL, LOWER, UPPER, INFIN, INFIS, D, E
)
| 1
Warning: Type mismatch in argument 'w' at (1); passed INTEGER(4) to REAL(8)
[-Wargument-mismatch]
As documented -pedantic turns the warnings into errors.
The change occurred between revisions r269635 (2019-03-13, no warning) and
r269895 (2019-03-24, warnings), likely r269895 (pr78865) for trunk (9.0) and
r270032 for 8.3.1.
This seems related to the line 1505
ENTRY MVTNIT( N, NUIN, CORREL, LOWER, UPPER, INFIN, INFIS, D, E )
conflicting with the line 1468
DOUBLE PRECISION FUNCTION FNCMVT(N, W)
Note that the line 80 seems wrong: it should be the same as line 1432.
