gcc/testsuite/gfortran.dg/whole_file_35.f90


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
27
28

! { 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

! { dg-final { cleanup-modules "m" } }