| Tin Huynh | 69fd49a | 2019-09-05 10:05:45 -0700 | [diff] [blame] | 1 | ! Tests -fget-symbols-sources with COMMON. |
| Tin Huynh | 69fd49a | 2019-09-05 10:05:45 -0700 | [diff] [blame] | 2 | program main |
| 3 | integer :: x |
| 4 | integer :: y |
| 5 | common /x/ y |
| 6 | x = y |
| 7 | end program |
| 8 | |
| Andrzej Warzynski | d18a9ae | 2021-10-14 08:07:30 +0000 | [diff] [blame] | 9 | ! RUN: %flang_fc1 -fget-symbols-sources %s 2>&1 | FileCheck %s |
| Richard Barton | bf57fc1 | 2020-06-26 18:49:21 +0100 | [diff] [blame] | 10 | ! CHECK:x:{{.*}}getsymbols04.f90, 3, 14-15 |
| Richard Barton | bf57fc1 | 2020-06-26 18:49:21 +0100 | [diff] [blame] | 11 | ! CHECK:x:{{.*}}getsymbols04.f90, 5, 11-12 |
| peter klausler | f80866b | 2020-09-01 16:55:43 -0700 | [diff] [blame] | 12 | ! CHECK:y:{{.*}}getsymbols04.f90, 4, 14-15 |
