Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR36700, in which the call to the function would

! cause an ICE.

!

! Contributed by 

!

module Diatoms

  implicit none

contains

  function InitialDiatomicX () result(v4)    ! { dg-error "has a type" }

    real(kind = 8), dimension(4) :: v4

    v4 = 1

  end function InitialDiatomicX

  subroutine FindDiatomicPeriod

    call InitialDiatomicX ()    ! { dg-error "which is not consistent with the CALL" }

  end subroutine FindDiatomicPeriod

end module Diatoms

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