annotate gcc/testsuite/gfortran.dg/pr93714_2.f90 @ 19:2b5abeee2509 default tip

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
19
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
1 ! { dg-do compile }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
2 ! PR 93714
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
3 ! Original test case from G. Steinmetz
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
4
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
5 program test
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
6 character((9.)) :: a
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
7 character(:), pointer :: b => a
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
8 end program
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
9
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
10 ! { dg-error "Scalar INTEGER expression expected" " " { target *-*-* } 6 }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
11 ! { dg-error "Different types in pointer assignment" " " { target *-*-* } 7 }