| ! { dg-do compile } | |
| ! { dg-options "-Wexternal-argument-mismatch" } | |
| ! PR 119157 - this used to ICE because undo state was not | |
| ! correctly handled. | |
| MODULE lmdif_module | |
| implicit none | |
| CONTAINS | |
| SUBROUTINE lmdif (fcn, m) | |
| EXTERNAL fcn | |
| integer m | |
| call fcn (m) | |
| END SUBROUTINE lmdif | |
| END MODULE |