1 ! Check for compatibily of actual arguments
2 ! with dummy arguments marked as volatile
4 ! Contributed by Steven Correll.
13 subroutine sub8(dummy8)
14 integer, volatile, dimension(3) :: dummy8
16 subroutine sub8a(dummy8a)
17 integer, volatile, dimension(:) :: dummy8a
20 integer, dimension(8) :: a
21 call sub8 (a(1:5:2)) ! { dg-error "Array-section actual argument" }
25 subroutine s9(s9dummy)
27 integer, dimension(:) :: s9dummy
29 subroutine sub9(dummy9)
30 integer, volatile, dimension(3) :: dummy9
32 subroutine sub9a(dummy9a)
33 integer, volatile, dimension(:) :: dummy9a
36 integer, dimension(9) :: a
37 call sub9 (s9dummy) ! { dg-error "Assumed-shape actual argument" }
44 subroutine sub10(dummy10)
45 integer, volatile, dimension(3) :: dummy10
47 subroutine sub10a(dummy10a)
48 integer, volatile, dimension(:) :: dummy10a
50 subroutine sub10b(dummy10b)
51 integer, volatile, dimension(:), pointer :: dummy10b
54 integer, dimension(:), pointer :: a
55 call sub10 (a) ! { dg-error "Pointer-array actual argument" }