| ! { dg-do compile } | |
| ! PR fortran/95500 - ICE compiling extra interface on intrinsic | |
| program test_intrinsic | |
| implicit none | |
| intrinsic :: alog | |
| intrinsic :: dlog | |
| real (4), parameter :: one = 1 | |
| interface ln | |
| procedure :: alog, dlog | |
| end interface ln | |
| write (*,*) 'ln 1', ln (one) | |
| end program test_intrinsic |