Subversion Repositories openrisc

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