annotate gcc/testsuite/gfortran.dg/asan/asan.exp @ 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 # Copyright (C) 2020 Free Software Foundation, Inc.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
2 #
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
3 # This file is part of GCC.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
4 #
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
5 # GCC is free software; you can redistribute it and/or modify
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
6 # it under the terms of the GNU General Public License as published by
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
7 # the Free Software Foundation; either version 3, or (at your option)
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
8 # any later version.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
9 #
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
10 # GCC is distributed in the hope that it will be useful,
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
13 # GNU General Public License for more details.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
14 #
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
15 # You should have received a copy of the GNU General Public License
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
16 # along with GCC; see the file COPYING3. If not see
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
17 # <http://www.gnu.org/licenses/>.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
18
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
19 # GCC testsuite for gfortran that checks for -fsanitize=address error.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
20
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
21 # Contributed by Thomas K├Ânig, <tkoenig@gcc.gnu.org>
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
22
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
23 # Load support procs.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
24 load_lib gfortran-dg.exp
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
25 load_lib asan-dg.exp
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
26
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
27
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
28 # Initialize `dg'.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
29 dg-init
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
30 asan_init
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
31
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
32 # Main loop.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
33 if [check_effective_target_fsanitize_address] {
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
34 gfortran-dg-runtest [lsort \
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
35 [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] "-fsanitize=address" ""
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
36 }
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
37
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
38 # All done.
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
39 asan_finish
2b5abeee2509 update gcc11
anatofuz
parents:
diff changeset
40 dg-finish