seq_io.f90

! pr 15472 ! sequential access files ! ! this test verifies the most basic sequential unformatted I/O ! write 3 records of various sizes ! then read them back ! and compare with what w

http://www.codebf.com/read/162614/5523206

emptyif.f90

! Test empty if statements. We Used to fail this because we folded ! the if stmt before we finished building it. program emptyif implicit none integer i i=1 if(i .le. 0) then else i

http://www.codebf.com/read/162614/5523214

emptyif.f90

! Program to test empty IF statements program emptyif implicit none logical c logical d if (c) then c = .true. end if if (c) then else c = .true. end if if

http://www.codebf.com/read/162614/5523361

interface_1.f90

! { dg-do compile } ! This program would segfault without the patch for PR fortran/24005. module y ! ! If private statement is removed, then we get a bunch of errors ! private f ! ! If we

http://www.codebf.com/read/162614/5526372

saveaddbook.asp

http://www.codebf.com/read/162537/5540838

login.asp

http://www.codebf.com/read/162241/5548430

vote.asp

http://www.codebf.com/read/162241/5548497

2.3.1.txt

If PercentCorrect >= 90 Then Grade="A" ElseIf PercentCorrect >= 80 AND PercentCorrect < 90 Then Grade="B" ElseIf PercentCorrect >= 70 AND PercentCorrect < 80 Then Grade="C" ElseIf PercentC

http://www.codebf.com/read/161778/5549767

2.3.2.txt

integer array1[16] For I = 1 to 16 array1[I] = I Next Label1: Num++ …… GoTo Label1 //跳到Label1处 For Num1 = 1 To 56 If Num1

http://www.codebf.com/read/161778/5549768

2.3.3.txt

Return {Expression} If Num > = 200 Then Retuin 0 //如果Num > = 200，使用Return语句结束本函数，以后的语句不再执行 Else Return Num End If //使用Return语句结束本函数，以后的语句不再执行 Halt {Close}

http://www.codebf.com/read/161778/5549769