Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr93792.f90 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
152
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
1 ! { dg-do compile }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
2 ! Original test case by Gernhard Steinmetz.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
3
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
4 module m
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
5 type t(n)
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
6 integer, len :: n = z'1'
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
7 end type
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
8 end
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
9 program p
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
10 use m
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
11 type(t(:)), allocatable :: z
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
12 end
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
13
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
14 ! { dg-error "Parameterized type 't' does not have a component" " " { target *-*-* } 5 }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
15 ! { dg-error "BOZ literal constant at .1. cannot appear" " " { target *-*-* } 6 }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
16 ! { dg-error "Cannot open module file" " " { target *-*-* } 10 }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
17 ! { dg-excess-errors "compilation terminated" }