Skip to content

Commit 0f0c2c7

Browse files
committed
Units(Fortran): add a case with mixed (free and fixed forms) input files
Close #3529. Taken from examples reported by @mjaj as part of the issue report #3529.
1 parent fc768e3 commit 0f0c2c7

File tree

8 files changed

+36
-0
lines changed

8 files changed

+36
-0
lines changed
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
--sort=no
Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
p1 input.f /^ program p1$/;" p
2+
s input.f /^ character*5 s$/;" v program:p1
3+
r input.f /^ chara/;" v program:p1
4+
s1 input-0.f90 /^subroutine s1$/;" s
Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
subroutine s1
2+
real :: a,b,c,d
3+
if (a .eq. b .and. &
4+
c. eq. d) then
5+
a=0
6+
endif
7+
end
Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
program p1
2+
character*5 s
3+
c
4+
character*5 r
5+
r="abcde"
6+
end
Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
--sort=no
Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
s1 input.f90 /^subroutine s1$/;" s
2+
p1 input-0.f /^ program p1$/;" p
3+
s input-0.f /^ character*5 s$/;" v program:p1
4+
r input-0.f /^ chara/;" v program:p1
Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
program p1
2+
character*5 s
3+
c
4+
character*5 r
5+
r="abcde"
6+
end
Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
subroutine s1
2+
real :: a,b,c,d
3+
if (a .eq. b .and. &
4+
c. eq. d) then
5+
a=0
6+
endif
7+
end

0 commit comments

Comments
 (0)