1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
! { dg-do compile }
!
! Contributed by Mark Eggleston <mark.eggleston@codethink.co.uk>
subroutine f(a, b)
integer :: a
real :: b
write(*,*) a, b
end subroutine
subroutine g(a, b)
integer :: a
character(*) :: b
write(*,*) a, b
end subroutine
subroutine h
interface
subroutine f(a, b) ! { dg-error "\\(CHARACTER\\(\\*\\)/REAL\\(4\\)\\)" }
integer :: a
character(*) :: b
end subroutine
subroutine g(a, b) ! { dg-error "\\(REAL\\(4\\)/CHARACTER\\(\\*\\)\\)" }
integer :: a
real :: b
end subroutine
end interface
call f(6, 6.0)
call g(6, "abcdef")
end subroutine
subroutine f4(a, b)
integer :: a
real :: b
write(*,*) a, b
end subroutine
subroutine g4(a, b)
integer :: a
character(*,4) :: b
write(*,*) a, b
end subroutine
subroutine h4
interface
subroutine f4(a, b) ! { dg-error "\\(CHARACTER\\(\\*,4\\)/REAL\\(4\\)\\)" }
integer :: a
character(*,4) :: b
end subroutine
subroutine g4(a, b) ! { dg-error "REAL\\(4\\)/CHARACTER\\(\\*,4\\)" }
integer :: a
real :: b
end subroutine
end interface
call f4(6, 6.0)
call g4(6, 4_"abcdef")
end subroutine
program test
call h
call h4
end program
! { dg-error "passed REAL\\(4\\) to CHARACTER\\(\\*\\)" "type mismatch" { target \*-\*-\* } 31 }
! { dg-error "passed CHARACTER\\(6\\) to REAL\\(4\\)" "type mismatch" { target \*-\*-\* } 32 }
! { dg-error "passed REAL\\(4\\) to CHARACTER\\(\\*,4\\)" "type mismatch" { target \*-\*-\* } 61 }
! { dg-error "passed CHARACTER\\(6,4\\) to REAL\\(4\\)" "type mismatch" { target \*-\*-\* } 62 }
|
