File tree Expand file tree Collapse file tree 2 files changed +7
-7
lines changed Expand file tree Collapse file tree 2 files changed +7
-7
lines changed Original file line number Diff line number Diff line change @@ -1297,7 +1297,7 @@ const char *Prescanner::FreeFormContinuationLine(bool ampersand) {
1297
1297
return nullptr ;
1298
1298
}
1299
1299
}
1300
- } else if (features_.IsEnabled (LanguageFeature::OpenMP)) {
1300
+ } else if (features_.IsEnabled (LanguageFeature::OpenMP) && *p == ' $ ' ) {
1301
1301
++p;
1302
1302
} else {
1303
1303
return nullptr ;
Original file line number Diff line number Diff line change 1
- ! RUN: flang-new -fopenmp -E %s 2>&1 | FileCheck %s --check-prefix=CHECK-OMP
2
- ! RUN: flang-new -E %s 2>&1 | FileCheck %s
1
+ ! RUN: %flang_fc1 -fopenmp -E %s 2>&1 | FileCheck %s --check-prefix=CHECK-OMP
2
+ ! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s
3
3
4
4
5
5
! Test in mixed way, i.e., combination of Fortran free source form
@@ -18,10 +18,10 @@ subroutine mixed_form1()
18
18
19
19
20
20
! Testing continuation lines in only Fortran Free form Source
21
- ! CHECK-LABEL: subroutine mixed_form3 ()
21
+ ! CHECK-LABEL: subroutine mixed_form2 ()
22
22
! CHECK-OMP: i = 1 +10 +100 + 1000 + 10000
23
23
! CHECK: i = 1 +10 +100 + 1000 + 10000
24
- subroutine mixed_form3 ()
24
+ subroutine mixed_form2 ()
25
25
i = 1 &
26
26
+ 10 &
27
27
&+ 100
@@ -31,10 +31,10 @@ subroutine mixed_form3()
31
31
32
32
33
33
! Testing continuation line in only free source form conditional compilation sentinel.
34
- ! CHECK-LABEL: subroutine mixed_form4 ()
34
+ ! CHECK-LABEL: subroutine mixed_form3 ()
35
35
! CHECK-OMP: i=0
36
36
! CHECK-OMP: i = 1 +10 +100+1000
37
- subroutine mixed_form4 ()
37
+ subroutine mixed_form3 ()
38
38
! $ i=0
39
39
! $ i = 1 &
40
40
! $ & +10 &
You can’t perform that action at this time.
0 commit comments