|
7
|
1 " Vim compiler file
|
|
|
2 " Compiler: g77 (GNU Fortran)
|
|
|
3 " Maintainer: Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
2034
|
4 " Last Change: $Date: 2004/06/13 18:17:36 $
|
|
|
5 " $Revision: 1.1 $
|
|
7
|
6
|
|
|
7 if exists("current_compiler")
|
|
|
8 finish
|
|
|
9 endif
|
|
|
10 let current_compiler = "fortran_g77"
|
|
|
11
|
|
|
12 if exists(":CompilerSet") != 2 " older Vim always used :setlocal
|
|
|
13 command -nargs=* CompilerSet setlocal <args>
|
|
|
14 endif
|
|
|
15
|
|
|
16 let s:cpo_save = &cpo
|
|
|
17 set cpo-=C
|
|
|
18
|
|
|
19 " Note: The errorformat assumes GNU make
|
|
|
20
|
|
|
21 " sample multiline errors (besides gcc backend one-liners):
|
|
|
22 " gev.f:14:
|
|
|
23 " parameter UPLO = 'Upper-triangle'
|
|
|
24 " ^
|
|
|
25 " Unsupported VXT statement at (^)
|
|
|
26 " gev.f:6:
|
|
|
27 " integer desca( * ), descb( * )
|
|
|
28 " 1
|
|
|
29 " gev.f:19: (continued):
|
|
|
30 " end subroutine
|
|
|
31 " 2
|
|
|
32 " Invalid declaration of or reference to symbol `desca' at (2) [initially seen at (1)]
|
|
|
33
|
|
|
34 CompilerSet errorformat=
|
|
|
35 \%Omake:\ %r,
|
|
|
36 \%f:%l:\ warning:\ %m,
|
|
|
37 \%A%f:%l:\ (continued):,
|
|
|
38 \%W%f:%l:\ warning:,
|
|
|
39 \%A%f:%l:\ ,
|
|
|
40 \%-C\ \ \ %p%*[0123456789^]%.%#,
|
|
|
41 \%-C\ \ \ %.%#,
|
|
|
42 \%D%*\\a[%*\\d]:\ Entering\ directory\ `%f',
|
|
|
43 \%X%*\\a[%*\\d]:\ Leaving\ directory\ `%f',
|
|
|
44 \%DMaking\ %*\\a\ in\ %f,
|
|
|
45 \%Z%m
|
|
|
46
|
|
|
47 let &cpo = s:cpo_save
|
|
|
48 unlet s:cpo_save
|
