Subversion Repositories openrisc

! Program to test parsing of ENUM in different program units

program main

  implicit none

  interface

    subroutine sub1

    end subroutine sub1

  end interface

  integer :: i = 55

  enum , bind (c)

    enumerator :: a , b=5

    enumerator c, d

  end enum

  call sub

  call sub1

  i = fun()

contains

  subroutine sub

    enum, bind(c)

      enumerator :: p = b, q = 10 + 50

      enumerator r, s

    end enum

  end subroutine sub

  function fun()

  integer :: fun

  enum, bind (c)

    enumerator :: red, yellow = 23

    enumerator :: blue

    enumerator :: green

  end enum

  fun = 1

  end function fun

end program main

subroutine sub1

  implicit none

  enum, bind(c)

    enumerator x , y

    enumerator :: z = 100

  end enum

end subroutine sub1