Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/whole_file_1.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
17 subroutine b 17 subroutine b
18 type u 18 type u
19 integer :: u1 19 integer :: u1
20 end type 20 end type
21 type (u) :: q 21 type (u) :: q
22 call a(q) ! { dg-warning "Type mismatch" } 22 call a(q) ! { dg-error "Type mismatch" }
23 print *, q%u1 23 print *, q%u1
24 end subroutine 24 end subroutine
25 25
26 subroutine c(p) 26 subroutine c(p)
27 type u 27 type u
34 subroutine d 34 subroutine d
35 type u 35 type u
36 integer :: u1 36 integer :: u1
37 end type 37 end type
38 type (u) :: q 38 type (u) :: q
39 call c(q) ! { dg-warning "Type mismatch" } 39 call c(q) ! { dg-error "Type mismatch" }
40 print *, q%u1 40 print *, q%u1
41 end subroutine 41 end subroutine
42 42
43 subroutine e(p) 43 subroutine e(p)
44 type u 44 type u