Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

! we didn't correctly reject function declarations without argument lists

! we didn't correctly reject function declarations without argument lists

! note that there are no end statements for syntactically wrong function

! note that there are no end statements for syntactically wrong function

! declarations

! declarations

  interface

  interface

     function f1     ! { dg-error "Expected formal argument list" }

     function f1     ! { dg-error "Expected formal argument list" }

     function f3()

     function f3()

     end function f3

     end function f3

     function f4 result (x) ! { dg-error "Expected formal argument list" }

     function f4 result (x) ! { dg-error "Expected formal argument list" }

     function f5() result (x)

     function f5() result (x)

     end function f5

     end function f5

   end interface

   end interface

  f1 = 1.

  f1 = 1.

end

end

FUNCTION f1          ! { dg-error "Expected formal argument list" }

FUNCTION f1          ! { dg-error "Expected formal argument list" }

function f2()

function f2()

  f2 = 1.

  f2 = 1.

end function f2

end function f2

function f3 result (x) ! { dg-error "Expected formal argument list" }

function f3 result (x) ! { dg-error "Expected formal argument list" }

function f4 () result (x)

function f4 () result (x)

  x = 4.

  x = 4.

end function f4

end function f4