Subversion Repositories openrisc

! { dg-do run }
! { dg-options "-std=f95 -Wno-intrinsics-std" }

! PR fortran/33141
! Check that calls to intrinsics not in the current standard are "allowed" and
! linked to external procedures with that name.
! Addionally, this checks that -Wno-intrinsics-std turns off the warning.

SUBROUTINE abort ()
  IMPLICIT NONE
  WRITE (*,*) "Correct"
END SUBROUTINE abort

REAL FUNCTION asinh (arg)
  IMPLICIT NONE
  REAL :: arg

  WRITE (*,*) "Correct"
  asinh = arg
END FUNCTION asinh

SUBROUTINE implicit_none
  IMPLICIT NONE
  REAL :: asinh ! { dg-bogus "Fortran 2008" }
  REAL :: x

  ! Both times our version above should be called
  CALL abort () ! { dg-bogus "extension" }
  x = ASINH (1.) ! { dg-bogus "Fortran 2008" }
END SUBROUTINE implicit_none

SUBROUTINE implicit_type
  ! ASINH has implicit type here
  REAL :: x

  ! Our version should be called
  x = ASINH (1.) ! { dg-bogus "Fortran 2008" }
END SUBROUTINE implicit_type

PROGRAM main
  ! This should give a total of three "Correct"s
  CALL implicit_none ()
  CALL implicit_type ()
END PROGRAM main

! { dg-output "Correct\.*Correct\.*Correct" }