! { dg-do compile } | |
! | |
! PR fortran/50408 | |
! | |
! Contributed by Vittorio Zecca | |
! | |
module m | |
type int | |
integer :: val | |
end type int | |
interface ichar | |
module procedure uch | |
end interface | |
contains | |
function uch (c) | |
character (len=1), intent (in) :: c | |
type (int) :: uch | |
intrinsic ichar | |
uch%val = 127 - ichar (c) | |
end function uch | |
end module m | |
program p | |
use m | |
print *,ichar('~') ! must print "1" | |
end program p |