main.dvi

Size: px

Start display at page:

Download "main.dvi"

ひでよりふじした
4 years ago
Views:

1 1 F77 5 hmogi-2008f@kiban.civil.saitama-u.ac.jp 2013/5/13 1

2 2 f77... f77.exe f77.exe CDROM (CDROM D D: setupond E E: setupone 5 C:work\T66160\ >f77 menseki.f -o menseki f77(.exe) f77 f77(.exe) C:work\T66160\ >set set ALLUSERSPROFILE=C:\ProgramData APPDATA=C:\Users\hm\AppData\Roaming CommonProgramFiles=C:\Program Files\Common Files COMPUTERNAME=HM-PC LIBRARY_PATH=E:\lib LIBRARY_PATH Path=E:\bin Path 2

3 3 f77 No such file or directory f77.exe f77 menseki.f C: work T *.* menseki.f.txt.txt C:\work\T66160\ >f77 mensek.f -o menseki f77: mensek.f: No such file or directory mensek.f C:\work\T66160\ >f77 menseki.f -o menseki C:\work\T66160\ > 3

4 4 [A] too few arguments (starting with dummy argument [B] ) as of (1) for statement function reference at (2) (2) (statement function) [B] [A] fs(x,y,z)=x**2+y**2+z**2! 3 x=3.0 z=fs(x) 1 fs sample.f:6: z=fs(x) too few arguments (starting with dummy argument y ) as of (2) for statement f unction reference at (1) [A] too many arguments as of (2) for statement function reference at (1) (1) [A] (2) fs(x,y)=x**2+y**2! fs z=fs(1.0, 2.0, 3.0, 4.0) 4 fs sample.f:5: z=fs(1.0, 2.0, 3.0, 4.0) too many arguments as of (2) for statement function reference at (1).NOT. operator at (1) must operate on scalar subexpressions but the subexpression at (2) is [A] (1).NOT. (scalar) (2) [A] logical t(2)/.true.,.true./,a a=.not.t sample.f:5: a=.not.t 1 2.NOT. operator at (1) must operate on scalar subexpressions -- but the subexpres sion at (2) is an array 4

5 .NOT. operator at (1) must operate on subexpression of logical type, but the subexpression at (1) is not of logical type (1).NOT. (2) integer m/1/ logical a a=.not.t sample.f:6: a=.not.t 1 2.NOT. operator at (1) must operate on subexpression of logical type, but the sub expression at (2) is not of logical type Alternate return specifier at ( ) invalid within a function (Alternate return) Alternate return specifier at ( ) invalid within a main program unit (Alternate return) Arithmetic operator at ( ) must operate on two scalar (not array) subexpressions, two function invocations returning arithmetic scalars, or a combination of both but the subexpression at (1) is [A] (2) (1) [A] integer m(2)/1,2/,n/2/, k k=m+n sample.f:5: k=m+n 12 Arithmetic operator at (2) must operate on two scalar (not array) subexpressions, two function invocations returning arithmetic scalars, or a combination of bot h -- but the subexpression at (1) is an array Arithmetic operator at ( ) must operate on two subexpressions of arithmetic type, but neither subexpression at (1) or (2) is of arithmetic type 5

6 Arithmetic operator at (1) must operate on two subexpressions of arithmetic type, but the subexpression at (2) is not of arithmetic type (2) (1) character a integer n n=1+a a sample.f:5: n=1+a 12 Arithmetic operator at (1) must operate on two subexpressions of arithmetic type, but the subexpression at (2) is not of arithmetic type Array [A] at ( ) istoolargetohandle [A] real x(500000,500000) x x x(1,1)=1.0 sample.f:3: real x(500000,500000) Array x at () is too large to handle Array element value at ( ) out of defined range [Warning] real x(2:5)! x 2 5 x(1)=1.0 1 e.f: In program sample : e.f:5: warning: x(1)=1.0 Array element value at () out of defined range Array has too many dimensions, as of dimension specifier at ( ) 7 real x(2,2,2,2,2,2,2,2) x 8 6

7 x(1,1,1,1,1,1,1,1)=1.0 e.f: In program sample : e.f:3: real x(2,2,2,2,2,2,2,2) Array has too many dimensions, as of dimension specifier at () Attempt to modify variable [A] at (1) while it serves as DO-loop iterator at (2) (1) DO [A] (2) integer i, j, k k=0 do i=1, 3 DO i k=k+i i=k DO i do e.f: In program sample : e.f:6: do i=1, 3 1 e.f:8: (continued): i=k 2 Attempt to modify variable i at (2) while it serves as DO-loop iterator at (1) Character constant at ( ) has no closing apostrophe at (1) ( ) (character constant) (apostrophe) 72 i=3 write(6,*) i,i, e.f: In program sample : e.f:4: write(6,*) i,i, 1 2 Character constant at (1) has no closing apostrophe at (2) Continuation indicator at ( ) must appear in column 6 [Warning] 6 Division by 0 (zero) at ( ) (IEEE not yet supported) [Warning] 0 0 #INF infinity 7

8 a=1.0/0.0 0 sample.f:4: warning: a=1.0/0.0 Division by 0 (zero) at () (IEEE not yet supported) DO-statement reference to label at (1) and label definition at (3) separated by unterminated block starting at (2) (1) DO (3) (2) integer i, j, k/0/ do 1000 i=1, 3 do 2000 j=1, 2 k=k+i+j 1000 continue 2000 continue 2000 continue 1000 sample.f:5: do 1000 i=1, 3 1 sample.f:6: (continued): do 2000 j=1, 2 2 sample.f:8: (continued): 1000 continue 3 DO-statement reference to label at (1) and label definition at (3) separated by unterminated block starting at (2) DO-variable [A] is type REAL or DOUBLE PRECISION at ( ) unexpected behavior likely [Warning] DO [A] End of source file before of block started at ( ) ( ) END a= write(6,*) a END sample.f:4: 8

9 a= End of source file before of block started at () Expression at ( ) has incorrect data type or rank for its context rank program error real x, y read(5,*) x, x,, y=3.0*x+4.0 write(6,*) y=, y error.f: In program error : error.f:4: read(5,*) x, Expression at () has incorrect data type or rank for its context program error read x, y real read read(5,*) x y=3.0*x+4.0 write(6,*) y=, y error.f: In program error : error.f:3: read x, y Expression at () has incorrect data type or rank for its context program error real x, y read(5,*) x x y=3.0*x+4.0 write(6,*) y=, y error.f: In program error : error.f:4: read(5,*) x Expression at () has incorrect data type or rank for its context program error real x, y read x read(5,*) (5,*) y=3.0*x+4.0 write(6,*) y=, y program error real x, y read(5,*) x y=3.0*x+4.0 write(6,*) y=, y 9

10 error.f: In program error : error.f:4: read x Expression at () has incorrect data type or rank for its context Extraneous comma in FORMAT statement at ( ) FORMAT, First-column ampersand continuation at ( ) [Warning] 1 & Gratuitous parentheses surround implied-do construct at ( ) [Warning] DO Invalid $ specifier in FORMAT statement at ( ) correctform:$ $ $ character a*10 a= abc write(6,1000) a 1000 format(a10,2$) $ 2 sample.f:7: 1000 format(a10,2$) Invalid $ specifier in FORMAT statement at () -- correct form: $ Invalid : specifier in FORMAT statement at ( ) correctform:: : : Invalid A specifier in FORMAT statement at ( ) correct form: [r]a[w] A [ r]a[ w] character c*10 c= abc write(6,1000) c 1000 format(a10.2) A write(6,2000) c, c 2000 format(2a4) r=2 w=4 10

11 sample.f:7: 1000 format(a10.2) Invalid A specifier in FORMAT statement at () -- correct form: [r]a[w] Invalid BN specifier in FORMAT statement at ( ) correctform:bn BN BN Invalid BZ specifier in FORMAT statement at ( ) correctform:bz BZ BZ Invalid declaration of or reference to symbol [A] at (2) [initially seen at (1)] (1) [A] (2) program g g real g, T, L, pi pi= g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) write(6,*) g sample.f: In program g : sample.f:2: program g 1 sample.f:3: (continued): real g, T, L, pi 2 Invalid declaration of or reference to symbol g at (2) [initially seen at (1)] program gravity real g, T, L, pi T pi= g=4*pi*pi/t/t(l+r+2.0/5.0*r*r/(l+r)) T*( T( write(6,*) g T() sample.f: In program gravity : sample.f:3: real g, T, L, pi 1 sample.f:8: (continued): g=4*pi*pi/t/t(l+r+2.0/5.0*r*r/(l+r)) 2 Invalid declaration of or reference to symbol t at (2) [initially seen at (1)] 11

12 Invalid D specifier in FORMAT statement at ( ) correct form: [r]dw.d D D [ r]dw.d w d Invalid E specifier in FORMAT statement at ( ) correct form: [r]ew.d[ee] E E [ r]ew.d[e e] w d real x x=100.0 write(6,1000) x 1000 format(e10) write(6,2000) x 2000 format(e10.2)! 0.10E+03 write(6,3000) x 3000 format(e10.2e5)!.10e e.f: In program sample : e.f:7: 1000 format(e10) Invalid E specifier in FORMAT statement at () -- correct form: [r]ew.d[ee] Invalid first character at ( ) 1 * c program gravity real g, T, L, pi pi= g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) 1 write(6,*) g sample.f: In program gravity : sample.f:8: g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) Invalid first character at () [info -f g77 M LEX] Invalid form for [A] statement at ( ) [A] PROGRAM assignment type declaration program a+b a=2.0 b=7.0 c=a+b PROGRAM 1 12

13 write(6,*) c sample.f:2: program a+b Invalid form for PROGRAM statement at () program gravity real g, T, L, pi pi= g=4pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) * 4*pi*pi write(6,*) g sample.f: In program gravity : sample.f:8: g=4pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) Invalid form for assignment statement at () program gravity real g, T, L, pi pi= g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) g 5 write(6,*) sample.f: In program gravity : sample.f:8: g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) Invalid form for assignment statement at () g pi=3.14..=*pi*pi.. program error read(5,*) x y=3,0*x+4,0., write(6,*) y=, y error.f: In program error : error.f:4: y=3,0*x+4,0 Invalid form for assignment statement at () program error real x, y, read(5,*) x y=3.0*x+4.0 write(6,*) y=, y error.f: In program error : 13

14 error.f:3: real x, y, Invalid form for type-declaration statement at () program error real a, b, c a=2.0, b=3.0 1 c=a+b write(6,*) a+b=, c error.f: In program error : error.f:4: a=2.0, b=3.0 Invalid form for assignment statement at () Label [A] already defined at (1) when redefined at (2) (2) [A] (1) Missing close parenthese at (2) needed to match open parenthese at (1) 1 open parenthese close parenthese 72 program gravity real g, T, L, pi pi= g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r) (L+r)) write(6,*) g sample.f: In program gravity : sample.f:8: g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r) 1 2 Missing close parenthese at (2) needed to match open parenthese at (1) program gravity real g, T, L g=4.0* * /t**2.0*((l+r)+2.0/5.0*r**2.0/(l+r)) write(6,*) g 73 sample.f: In program gravity : sample.f:8: g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)

15 Missing close parenthese at (2) needed to match open parenthese at (1) Missing first operand for binary operator at ( ) ( ) (binary operator (operand) + - program gravity real g, T, L, pi pi= g=4*pi*pi*/t/t*(l+r+2.0/5.0*r*r/(l+r)) */T write(6,*) g / sample.f: In program gravity : sample.f:8: g=4*pi*pi*/t/t*(l+r+2.0/5.0*r*r/(l+r)) Missing first operand for binary operator at () Missing operand for operator at (1) at of expression at (2) (1) (operator) (operand) program gravity real g, T, L g=4.0* * /t**2.0*((l+r)+2.0/5.0*r**2.0/(l+r)) write(6,*) g +r)) + 72 r)) sample.f: In program gravity : sample.f:8: g=4.0* * /t**2.0*((l+r)+2.0/5.0*r**2.0/(l+ 12 Missing operand for operator at (1) at of expression at (2) Non-numeric character at ( ) in label field 2 5 program gravity real g, T, L, pi pi= g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) g= 4 write(6,*) g 15

16 sample.f: In program gravity : sample.f:8: g=4*pi*pi/t/t*(l+r+2.0/5.0*r*r/(l+r)) Non-numeric character at () in label field [info -f g77 M LEX] Reference to label at (2) inconsistent with its definition at (1) (2) (1) program error real x, y 1000 y=0.0 do 1000 j=1, 4 y=y continue do (2000 error.f: In program error : error.f:4: 1000 y=0.0 1 error.f:5: (continued): do 1000 j=1, 4 2 Reference to label at (2) inconsistent with its definition at (1) Substring begin/ point at ( ) out of defined range [Warning] character a*10 a(10:12)= abc! a 10 a abc sample.f:5: warning: a(10:12)= abc Substring begin/ point at () out of defined range Too many elements as of (2) for array reference at (1) 1 (2) real x(2) x(1,2)=1.0 x x 2 e.f: In program sample : e.f:5: x(1,2)=

17 Too many elements as of (2) for array reference at (1) Unrecognized character at ( ) ( ) i=3 3 write(6,*) i,i, e.f: In program sample : e.f:3: i=3 Unrecognized character at () [info -f g77 M LEX] i=3 write(6,*) i,i, i i,i e.f: In program sample : e.f:4: write(6,*) i,i, Unrecognized character at () [info -f g77 M LEX] program gravity real g, T, L, pi pi= g=4*pi*pi/t/t*{l+r+0.4*r*r/(l+r)} {} () write(6,*) g sample.f: In program gravity : sample.f:8: g=4*pi*pi/t/t*{l+r+2.0/5.0*r*r/(l+r)} Unrecognized character at () [info -f g77 M LEX] program gravity real g, T, L, pi pi= g=4*pi2/t/t*(l+r+2.0/5.0*r*r/(l+r)) ** write(6,*) g sample.f: In program gravity : sample.f:8: 17

18 g=4*pi2/t/t*(l+r+2.0/5.0*r*r/(l+r)) Unrecognized character at () [info -f g77 M LEX] Zero-length character constant at ( ) [Warning] ( ) 0 18

19 5 undefined reference to Fortran program error real y y=cas( /6.0) write(6,*) cos( /6)=, y cos D:\home\g77-error-test>f77 error.f -o error C:\Users\hm\AppData\Local\Temp\ccquaaaa.o(.text+0x2b):error.f: undefined referen ce to cas_ cas_ 19

20 6 20

21 .NOT. operator at (1) must operate on scalar subexpressions but the subexpression at (2) is [A] 4.NOT. operator at (1) must operate on subexpression of logical type, but the subexpression at (1) is not of logical type 5 [A] too few arguments (starting with dummy argument [B] ) as of (1) for statement function reference at (2) 4 [A] too many arguments as of (2) for statement function reference at (1) 4 Alternate return specifier at ( ) invalid within a function 5 Alternate return specifier at ( ) invalid within a main program unit 5 Arithmetic operator at (1) must operate on two subexpressions of arithmetic type, but the subexpression at (2) is not of arithmetic type 6 Arithmetic operator at ( ) must operate on two scalar (not array) subexpressions, two function invocations returning arithmetic scalars, or a combination of both but the subexpression at (1) is [A] 5 Arithmetic operator at ( ) must operate on two subexpressions of arithmetic type, but neither subexpression at (1) or (2) is of arithmetic type 5 Array [A] at ( ) istoolargetohandle 6 Array element value at ( ) out of defined range 6 Array has too many dimensions, as of dimension specifier at ( ) 6 Attempt to modify variable [A] at (1) while it serves as DO-loop iterator at (2) 7 Character constant at ( ) has no closing apostrophe at (1) 7 Continuation indicator at ( ) must appear in column 6 7 Division by 0 (zero) at ( ) (IEEE not yet supported) 7 DO-statement reference to label at (1) and label definition at (3) separated by unterminated block starting at (2) 8 DO-variable [A] is type REAL or DOUBLE PRECISION at ( ) unexpected behavior likely 8 End of source file before of block started at ( ) 8 Expression at ( ) has incorrect data type or rank for its context 9 Extraneous comma in FORMAT statement at ( ) 10 f77... [command prompt ] 2 f77: source file : No such file or directory [f77.exe ] 3 First-column ampersand continuation at ( ) 10 Gratuitous parentheses surround implied-do construct at ( ) 10 Invalid : specifier in FORMAT statement at ( ) correctform:: 10 Invalid $ specifier in FORMAT statement at ( ) correctform:$ 10 Invalid A specifier in FORMAT statement at ( ) correct form: [r]a[w] 10 Invalid BN specifier in FORMAT statement at ( ) correctform:bn 11 Invalid BZ specifier in FORMAT statement at ( ) correctform:bz 11 Invalid D specifier in FORMAT statement at ( ) correct form: [r]dw.d 12 Invalid declaration of or reference to symbol [A] at (2) [initially seen at (1)] 11 Invalid E specifier in FORMAT statement at ( ) correct form: [r]ew.d[ee] 12 Invalid first character at ( ) 12 Invalid form for [A] statement at ( ) 12 21

22 Invalid form for PROGRAM/WRITE/READ/assignment/type declaration/... statement at ( ) 12 Label already defined at (1) when redefined at (2) 14 Missing close parenthese at (2) needed to match open parenthese at (1) 14 Missing first operand for binary operator at ( ) 15 Missing operand for operator at (1) at of expression at (2) 15 No such file or directory [f77.exe ] 3 Non-numeric character at ( )inlabelfield 15 Reference to label at (2) inconsistent with its definition at (1) 16 Substring begin/ point at ( ) out of defined range 16 too few arguments (starting with dummy argument... 4 too many arguments as of... 4 Too many elements as of (2) for array reference at (1) 16 undefined reference to... [ ] 19 Unrecognized character at ( ) 17 Zero-length character constant at ( ) 18 too few arguments (starting with dummy argument ) as of (1) for statement function reference at (2) 4 too many arguments as of (2) for statement function reference at (1) 4 22

Fortran90/95 [9]! (1 ) " " 5 "Hello!"! 3. (line) Fortran Fortran 1 2 * (1 ) 132 ( ) * 2 ( Fortran ) Fortran ,6 (continuation line) 1

Fortran90/95 [9]! (1 ) 5 Hello!! 3. (line) Fortran Fortran 1 2 * (1 ) 132 ( ) * 2 ( Fortran ) Fortran ,6 (continuation line) 1 Fortran90/95 2.1 Fortran 2-1 Hello! 1 program example2_01! end program 2! first test program ( ) 3 implicit none! 4 5 write(*,*) "Hello!"! write Hello! 6 7 stop! 8 end program example2_01 1 program 1!