blob: 5319917f7a8508d5e4d6139ca7d2597cbff3e989 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
!{ dg-do compile }
! this routine tests all the execution paths
! through the routine known as match_old_style_init()
! it does not make sense in any other context !!
subroutine sub1(Z) !{ dg-error "DATA attribute conflicts" }
integer Z/10/!{ dg-error "DATA"}
end
pure function pi(k)
integer ,intent(in) :: k
integer i / 10 / !{ dg-error "Initialization at " }
pi=3.0
end function pi
subroutine sub2
integer I / /!{ dg-error "Syntax error in DATA" }
end
|
