Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/whole_file_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-fwhole-file" }
3 ! Tests the fix for PR22571 in which the derived types in a, b
4 ! c and d were not detected to be different. In e and f, they
5 ! are the same because they are sequence types.
6 !
7 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
8 !
9 subroutine a(p)
10 type t
11 integer :: t1
12 end type
13 type(t) :: p
14 p%t1 = 42
15 end subroutine
16
17 subroutine b
18 type u
19 integer :: u1
20 end type
21 type (u) :: q
22 call a(q) ! { dg-warning "Type mismatch" }
23 print *, q%u1
24 end subroutine
25
26 subroutine c(p)
27 type u
28 integer :: u1
29 end type
30 type(u) :: p
31 p%u1 = 42
32 end subroutine
33
34 subroutine d
35 type u
36 integer :: u1
37 end type
38 type (u) :: q
39 call c(q) ! { dg-warning "Type mismatch" }
40 print *, q%u1
41 end subroutine
42
43 subroutine e(p)
44 type u
45 sequence
46 integer :: u1
47 end type
48 type(u) :: p
49 p%u1 = 42
50 end subroutine
51
52 subroutine f
53 type u
54 sequence
55 integer :: u1
56 end type
57 type (u) :: q
58 call e(q) ! This is OK because the types are sequence.
59 print *, q%u1
60 end subroutine