Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

! PR 26201: Check that the __convert_*_* functions are treated as intrinsics

! PR 26201: Check that the __convert_*_* functions are treated as intrinsics

! rather than module functions.

! rather than module functions.

! Testcase contributed by Philippe Schaffnit and François-Xavier Coudert.

! Testcase contributed by Philippe Schaffnit and François-Xavier Coudert.

MODULE MODULE_A

MODULE MODULE_A

    REAL :: a = 0

    REAL :: a = 0

END MODULE MODULE_A

END MODULE MODULE_A

MODULE MODULE_B

MODULE MODULE_B

    REAL :: b = 0

    REAL :: b = 0

END MODULE MODULE_B

END MODULE MODULE_B

USE MODULE_A

USE MODULE_A

USE MODULE_B

USE MODULE_B

a = 0

a = 0

END

END

! { dg-final { cleanup-modules "MODULE_A MODULE_B" } }

! { dg-final { cleanup-modules "MODULE_A MODULE_B" } }