Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-c -std=f95" }

! Testcase from PR fortran/25094

! Contributed by Joost VandeVondele 

MODULE M1

  TYPE T1

    INTEGER :: I

  END TYPE T1

  INTERFACE I

    MODULE PROCEDURE F1

  END INTERFACE

  PRIVATE ! :: T1,F1

  PUBLIC  :: I

CONTAINS

  INTEGER FUNCTION F1(D)  ! { dg-error "PUBLIC interface" }

    TYPE(T1) :: D

    F1 = D%I

  END FUNCTION

END MODULE

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