Skip to content

Commit b350c4d

Browse files
committed
Merge branch 'pb/userdiff-fortran-update'
The regexp to identify the function boundary for FORTRAN programs has been updated. * pb/userdiff-fortran-update: userdiff: improve Fortran xfuncname regex userdiff: add tests for Fortran xfuncname regex
2 parents ecc796c + 75c3b6b commit b350c4d

11 files changed

+100
-1
lines changed

t/t4018/fortran-block-data

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
BLOCK DATA RIGHT
2+
3+
COMMON /B/ C, ChangeMe
4+
DATA C, ChangeMe / 2.0, 6.0 /
5+
END

t/t4018/fortran-comment

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
module a
2+
3+
contains
4+
5+
! subroutine wrong
6+
subroutine RIGHT
7+
! subroutine wrong
8+
9+
real ChangeMe
10+
11+
end subroutine RIGHT
12+
13+
end module a

t/t4018/fortran-comment-keyword

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
module a
2+
3+
contains
4+
5+
subroutine RIGHT (funcA, funcB)
6+
7+
real funcA ! grid function a
8+
real funcB ! grid function b
9+
10+
real ChangeMe
11+
12+
end subroutine RIGHT
13+
14+
end module a

t/t4018/fortran-comment-legacy

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
module a
2+
3+
contains
4+
5+
C subroutine wrong
6+
subroutine RIGHT
7+
C subroutine wrong
8+
9+
real ChangeMe
10+
11+
end subroutine RIGHT
12+
13+
end module a

t/t4018/fortran-comment-legacy-star

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
module a
2+
3+
contains
4+
5+
* subroutine wrong
6+
subroutine RIGHT
7+
* subroutine wrong
8+
9+
real ChangeMe
10+
11+
end subroutine RIGHT
12+
13+
end module a

t/t4018/fortran-external-function

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
function RIGHT(a, b) result(c)
2+
3+
integer, intent(in) :: ChangeMe
4+
integer, intent(in) :: b
5+
integer, intent(out) :: c
6+
7+
c = a+b
8+
9+
end function RIGHT

t/t4018/fortran-external-subroutine

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
subroutine RIGHT
2+
3+
real ChangeMe
4+
5+
end subroutine RIGHT

t/t4018/fortran-module

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
module RIGHT
2+
3+
use ChangeMe
4+
5+
end module RIGHT

t/t4018/fortran-module-procedure

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
module RIGHT
2+
3+
implicit none
4+
private
5+
6+
interface letters ! generic interface
7+
module procedure aaaa, &
8+
bbbb, &
9+
ChangeMe, &
10+
dddd
11+
end interface
12+
13+
end module RIGHT

t/t4018/fortran-program

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
program RIGHT
2+
3+
call ChangeMe
4+
5+
end program RIGHT

0 commit comments

Comments
 (0)