WATFIV-S
1 program
Added 2026-03-12T00:18:06Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Waterloo Fortran IV with Structure, Structured WATFIV
Provenance: commit 2a4646c178 · authored 2026-03-12T01:18:40+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Bubble Sort
Provenance: commit 2a4646c178 · authored 2026-03-12T01:18:40+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
C WATFIV-S BUBBLE SORT PROGRAM
C DEMONSTRATES STRUCTURED PROGRAMMING EXTENSIONS
INTEGER ARRAY(10), N, I, TEMP
LOGICAL SWAPPED
DATA ARRAY /64, 34, 25, 12, 22, 11, 90, 45, 33, 1/
N = 10
SWAPPED = .TRUE.
WHILE (SWAPPED) DO
SWAPPED = .FALSE.
DO 20 I = 1, N-1
IF (ARRAY(I) .GT. ARRAY(I+1)) THEN
TEMP = ARRAY(I)
ARRAY(I) = ARRAY(I+1)
ARRAY(I+1) = TEMP
SWAPPED = .TRUE.
END IF
20 CONTINUE
END WHILE
DO 30 I = 1, N
WRITE(6,*) ARRAY(I)
30 CONTINUE
STOP
END