| ! { dg-do compile } | |
| ! | |
| ! PR fortran/59599 | |
| ! The call to ichar was triggering an ICE. | |
| ! | |
| ! Original testcase from Fran Martinez Fadrique <fmartinez@gmv.com> | |
| character(1) cpk(2) | |
| integer res(2) | |
| cpk = 'a' | |
| res = ichar( cpk, kind=1 ) | |
| print *, ichar( cpk, kind=1 ) | |
| end |