Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/intrinsic_shadow_1.f03 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900 (2017-10-27)
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-std=f2003 -Wintrinsic-shadow" }
3
4 ! PR fortran/33141
5 ! Check that the expected warnings are emitted if a user-procedure has the same
6 ! name as an intrinsic, but only if it is matched by the current -std=*.
7
8 MODULE testmod
9 IMPLICIT NONE
10
11 CONTAINS
12
13 ! ASIN is an intrinsic
14 REAL FUNCTION asin (arg) ! { dg-warning "shadow the intrinsic" }
15 IMPLICIT NONE
16 REAL :: arg
17 END FUNCTION asin
18
19 ! ASINH is one but not in F2003
20 REAL FUNCTION asinh (arg) ! { dg-bogus "shadow the intrinsic" }
21 IMPLICIT NONE
22 REAL :: arg
23 END FUNCTION asinh
24
25 END MODULE testmod
26
27 ! ACOS is an intrinsic
28 REAL FUNCTION acos (arg) ! { dg-warning "of an intrinsic" }
29 IMPLICIT NONE
30 REAL :: arg
31 END FUNCTION acos
32
33 ! ACOSH not for F2003
34 REAL FUNCTION acosh (arg) ! { dg-bogus "of an intrinsic" }
35 IMPLICIT NONE
36 REAL :: arg
37 END FUNCTION acosh
38
39 ! A subroutine with the same name as an intrinsic subroutine
40 SUBROUTINE random_number (arg) ! { dg-warning "of an intrinsic" }
41 IMPLICIT NONE
42 REAL, INTENT(OUT) :: arg
43 END SUBROUTINE random_number
44
45 ! But a subroutine with the name of an intrinsic function is ok.
46 SUBROUTINE atan (arg) ! { dg-bogus "of an intrinsic" }
47 IMPLICIT NONE
48 REAL :: arg
49 END SUBROUTINE atan
50
51 ! As should be a function with the name of an intrinsic subroutine.
52 REAL FUNCTION random_seed () ! { dg-bogus "of an intrinsic" }
53 END FUNCTION random_seed
54
55 ! We do only compile, so no main program needed.