1! { dg-do compile }
2! Check for conflicts
3! PR fortran/29657
4
5function f1() ! { dg-error "PROCEDURE attribute conflicts with SAVE attribute" }
6  implicit none
7  real, save :: f1
8  f1 = 1.0
9end function f1
10
11function f2() ! { dg-error "PROCEDURE attribute conflicts with SAVE attribute" }
12  implicit none
13  real :: f2
14  save f2
15  f2 = 1.0
16end function f2
17
18subroutine f3()
19  implicit none
20  dimension f3(3) ! { dg-error "SUBROUTINE attribute conflicts with DIMENSION attribute" }
21end subroutine f3
22
23subroutine f4(b)
24  implicit none
25  real :: b
26  entry b ! { dg-error "DUMMY attribute conflicts with ENTRY attribute" }
27end subroutine f4
28
29function f5(a)
30  implicit none
31  real :: a,f5
32  entry a ! { dg-error "DUMMY attribute conflicts with ENTRY attribute" }
33  f5 = 3.4
34end function f5
35
36subroutine f6(cos)
37  implicit none
38  real :: cos
39  intrinsic cos ! { dg-error "DUMMY attribute conflicts with INTRINSIC attribute" }
40end subroutine f6
41
42subroutine f7(sin)
43  implicit none
44  real :: sin
45  external sin
46end subroutine f7
47
48program test
49  implicit none
50  dimension test(3) ! { dg-error "PROGRAM attribute conflicts with DIMENSION attribute" }
51end program test
52