blob: e52a2c42dd8040cac297f50896935a2b644acd42 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { 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
|