OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [intrinsic_std_4.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! { dg-options "-std=f95 -Wno-intrinsics-std" }
3
 
4
! PR fortran/33141
5
! Check that calls to intrinsics not in the current standard are "allowed" and
6
! linked to external procedures with that name.
7
! Addionally, this checks that -Wno-intrinsics-std turns off the warning.
8
 
9
SUBROUTINE abort ()
10
  IMPLICIT NONE
11
  WRITE (*,*) "Correct"
12
END SUBROUTINE abort
13
 
14
REAL FUNCTION asinh (arg)
15
  IMPLICIT NONE
16
  REAL :: arg
17
 
18
  WRITE (*,*) "Correct"
19
  asinh = arg
20
END FUNCTION asinh
21
 
22
SUBROUTINE implicit_none
23
  IMPLICIT NONE
24
  REAL :: asinh ! { dg-bogus "Fortran 2008" }
25
  REAL :: x
26
 
27
  ! Both times our version above should be called
28
  CALL abort () ! { dg-bogus "extension" }
29
  x = ASINH (1.) ! { dg-bogus "Fortran 2008" }
30
END SUBROUTINE implicit_none
31
 
32
SUBROUTINE implicit_type
33
  ! ASINH has implicit type here
34
  REAL :: x
35
 
36
  ! Our version should be called
37
  x = ASINH (1.) ! { dg-bogus "Fortran 2008" }
38
END SUBROUTINE implicit_type
39
 
40
PROGRAM main
41
  ! This should give a total of three "Correct"s
42
  CALL implicit_none ()
43
  CALL implicit_type ()
44
END PROGRAM main
45
 
46
! { dg-output "Correct\.*Correct\.*Correct" }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.