This is an archive of the discontinued LLVM Phabricator instance.

Differential D126279

[Fortran] Set QUIET = .TRUE. in STOP statements
Needs RevisionPublic

Authored by rovka on May 24 2022, 1:14 AM.

Details

Reviewers
Meinersbur
naromero77
klausler
schweitz
sscalpone
Summary

If QUIET is not specified, then the STOP statement issues warnings about
signaling exceptions (specifically INEXACT), which are not very
platform-independent. They're also not very concerning as long as the
end results are valid.

Diff Detail

Event Timeline

rovka created this revision.May 24 2022, 1:14 AM
Herald added a project: Restricted Project. · View Herald TranscriptMay 24 2022, 1:14 AM
Herald added a subscriber: jdoerfert. · View Herald Transcript
rovka requested review of this revision.May 24 2022, 1:14 AM
klausler added a comment.May 24 2022, 8:02 AM

Run the tests with NO_STOP_MESSAGE=1 in the environment.

sscalpone requested changes to this revision.May 24 2022, 8:36 AM
sscalpone added a subscriber: sscalpone.

Are you able to use the environment variable NO_STOP_MESSAGE=1 instead?

This revision now requires changes to proceed.May 24 2022, 8:36 AM
rovka added a comment.May 25 2022, 2:23 AM

I can do that, but I don't like that solution. My understanding is that these warnings are platform-dependent, and also the 'Fortran STOP' seems to be printed by default by flang. This means pretty much anyone running the test-suite with flang will have to set this environment variable, or else face a ton of failures. Why make the test-suite harder to run? I think one of the goals of the test-suite is to be independent from both the hardware and the compiler, and all the better if it's possible to achieve that without compiler-specific hacks. In this case, setting the STOP statement to QUIET makes sense to me because its output is not strictly defined by the standard and will vary with both hardware and compiler. The test-suite is not a good place to test warnings, error messages or other fuzzy output - that should go in flang's own tests.

rovka mentioned this in D126360: [Fortran] Forward NO_STOP_MESSAGE to FCVS tests.May 25 2022, 2:25 AM
klausler added a comment.May 25 2022, 6:35 AM
In D126279#3536557, @rovka wrote:

I can do that, but I don't like that solution. My understanding is that these warnings are platform-dependent, and also the 'Fortran STOP' seems to be printed by default by flang. This means pretty much anyone running the test-suite with flang will have to set this environment variable, or else face a ton of failures. Why make the test-suite harder to run? I think one of the goals of the test-suite is to be independent from both the hardware and the compiler, and all the better if it's possible to achieve that without compiler-specific hacks. In this case, setting the STOP statement to QUIET makes sense to me because its output is not strictly defined by the standard and will vary with both hardware and compiler. The test-suite is not a good place to test warnings, error messages or other fuzzy output - that should go in flang's own tests.

FCVS is very old code; it antedates the recent STOP QUIET feature. We run it because Fortran is short on publicly available test suites and because we want to be able to say that we pass this old famous suite. I agree that it would be best if FCVS's official sources could be updated, but it's basically a museum piece now.

rovka added a comment.May 27 2022, 2:42 AM
In D126279#3537069, @klausler wrote:

FCVS is very old code; it antedates the recent STOP QUIET feature. We run it because Fortran is short on publicly available test suites and because we want to be able to say that we pass this old famous suite. I agree that it would be best if FCVS's official sources could be updated, but it's basically a museum piece now.

But they can be updated (at least in our own copy which resides here). The license only requires us to include a list of modifications, which we do here and which this patch updates :)

Revision Contents

PathSize
Fortran/
UnitTests/
fcvs21_f95/
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines

Diff 431608

Fortran/UnitTests/fcvs21_f95/FM002.f

Show First 20 Lines • Show All 299 Lines • ▼ Show 20 Lines99999 CONTINUE 02930002
WRITE (I02,90007) 02980002 WRITE (I02,90007) 02980002
WRITE (I02,90002) 02990002 WRITE (I02,90002) 02990002
WRITE (I02,90008) IVFAIL 03000002 WRITE (I02,90008) IVFAIL 03000002
WRITE (I02,90009) IVPASS 03010002 WRITE (I02,90009) IVPASS 03010002
WRITE (I02,90010) IVDELE 03020002 WRITE (I02,90010) IVDELE 03020002
C 03030002 C 03030002
C 03040002 C 03040002
C TERMINATE ROUTINE EXECUTION 03050002 C TERMINATE ROUTINE EXECUTION 03050002
STOP 03060002 STOP, QUIET = .TRUE. 03060002
C 03070002 C 03070002
C FORMAT STATEMENTS FOR PAGE HEADERS 03080002 C FORMAT STATEMENTS FOR PAGE HEADERS 03080002
90000 FORMAT ("1") 03090002 90000 FORMAT ("1") 03090002
90002 FORMAT (" ") 03100002 90002 FORMAT (" ") 03100002
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03110002 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03110002
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03120002 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03120002
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03130002 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03130002
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03140002 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03140002
Show All 18 Lines

Fortran/UnitTests/fcvs21_f95/FM003.f

Show First 20 Lines • Show All 332 Lines • ▼ Show 20 Lines99999 CONTINUE 03260003
WRITE (I02,90007) 03310003 WRITE (I02,90007) 03310003
WRITE (I02,90002) 03320003 WRITE (I02,90002) 03320003
WRITE (I02,90008) IVFAIL 03330003 WRITE (I02,90008) IVFAIL 03330003
WRITE (I02,90009) IVPASS 03340003 WRITE (I02,90009) IVPASS 03340003
WRITE (I02,90010) IVDELE 03350003 WRITE (I02,90010) IVDELE 03350003
C 03360003 C 03360003
C 03370003 C 03370003
C TERMINATE ROUTINE EXECUTION 03380003 C TERMINATE ROUTINE EXECUTION 03380003
STOP 03390003 STOP, QUIET = .TRUE. 03390003
C 03400003 C 03400003
C FORMAT STATEMENTS FOR PAGE HEADERS 03410003 C FORMAT STATEMENTS FOR PAGE HEADERS 03410003
90000 FORMAT ("1") 03420003 90000 FORMAT ("1") 03420003
90002 FORMAT (" ") 03430003 90002 FORMAT (" ") 03430003
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03440003 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03440003
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03450003 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03450003
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03460003 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03460003
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03470003 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03470003
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM004.f

Show First 20 Lines • Show All 453 Lines • ▼ Show 20 Lines99999 CONTINUE 04470004
WRITE (I02,90007) 04520004 WRITE (I02,90007) 04520004
WRITE (I02,90002) 04530004 WRITE (I02,90002) 04530004
WRITE (I02,90008) IVFAIL 04540004 WRITE (I02,90008) IVFAIL 04540004
WRITE (I02,90009) IVPASS 04550004 WRITE (I02,90009) IVPASS 04550004
WRITE (I02,90010) IVDELE 04560004 WRITE (I02,90010) IVDELE 04560004
C 04570004 C 04570004
C 04580004 C 04580004
C TERMINATE ROUTINE EXECUTION 04590004 C TERMINATE ROUTINE EXECUTION 04590004
STOP 04600004 STOP, QUIET = .TRUE. 04600004
C 04610004 C 04610004
C FORMAT STATEMENTS FOR PAGE HEADERS 04620004 C FORMAT STATEMENTS FOR PAGE HEADERS 04620004
90000 FORMAT ("1") 04630004 90000 FORMAT ("1") 04630004
90002 FORMAT (" ") 04640004 90002 FORMAT (" ") 04640004
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04650004 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04650004
90003 FORMAT (" ",21X,"VERSION 2.1" ) 04660004 90003 FORMAT (" ",21X,"VERSION 2.1" ) 04660004
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04670004 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04670004
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04680004 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04680004
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM005.f

Show First 20 Lines • Show All 373 Lines • ▼ Show 20 Lines
C WRITE PAGE FOOTINGS 03720005 C WRITE PAGE FOOTINGS 03720005
99999 CONTINUE 03730005 99999 CONTINUE 03730005
WRITE (I02,90002) 03740005 WRITE (I02,90002) 03740005
WRITE (I02,90006) 03750005 WRITE (I02,90006) 03750005
WRITE (I02,90002) 03760005 WRITE (I02,90002) 03760005
WRITE (I02,90007) 03770005 WRITE (I02,90007) 03770005
C 03780005 C 03780005
C TERMINATE ROUTINE EXECUTION 03790005 C TERMINATE ROUTINE EXECUTION 03790005
STOP 03800005 STOP, QUIET = .TRUE. 03800005
C 03810005 C 03810005
C FORMAT STATEMENTS FOR PAGE HEADERS 03820005 C FORMAT STATEMENTS FOR PAGE HEADERS 03820005
90000 FORMAT ("1") 03830005 90000 FORMAT ("1") 03830005
90002 FORMAT (" ") 03840005 90002 FORMAT (" ") 03840005
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03850005 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03850005
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03860005 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03860005
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03870005 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03870005
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03880005 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03880005
90006 FORMAT (" ",5X,"----------------------------------------------" ) 03890005 90006 FORMAT (" ",5X,"----------------------------------------------" ) 03890005
90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 03900005 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 03900005
C FORMAT STATEMENTS FOR THIS ROUTINE 03910005 C FORMAT STATEMENTS FOR THIS ROUTINE 03910005
80001 FORMAT (10X,"TEST ",I2) 03920005 80001 FORMAT (10X,"TEST ",I2) 03920005
90007 FORMAT (" ",20X,"END OF PROGRAM FM005" ) 03930005 90007 FORMAT (" ",20X,"END OF PROGRAM FM005" ) 03930005
END 03940005 END 03940005

Fortran/UnitTests/fcvs21_f95/FM006.f

Show First 20 Lines • Show All 730 Lines • ▼ Show 20 Lines99999 CONTINUE 07240006
WRITE (I02,90007) 07290006 WRITE (I02,90007) 07290006
WRITE (I02,90002) 07300006 WRITE (I02,90002) 07300006
WRITE (I02,90008) IVFAIL 07310006 WRITE (I02,90008) IVFAIL 07310006
WRITE (I02,90009) IVPASS 07320006 WRITE (I02,90009) IVPASS 07320006
WRITE (I02,90010) IVDELE 07330006 WRITE (I02,90010) IVDELE 07330006
C 07340006 C 07340006
C 07350006 C 07350006
C TERMINATE ROUTINE EXECUTION 07360006 C TERMINATE ROUTINE EXECUTION 07360006
STOP 07370006 STOP, QUIET = .TRUE. 07370006
C 07380006 C 07380006
C FORMAT STATEMENTS FOR PAGE HEADERS 07390006 C FORMAT STATEMENTS FOR PAGE HEADERS 07390006
90000 FORMAT ("1") 07400006 90000 FORMAT ("1") 07400006
90002 FORMAT (" ") 07410006 90002 FORMAT (" ") 07410006
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07420006 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07420006
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07430006 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07430006
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07440006 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07440006
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07450006 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07450006
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM007.f

Show First 20 Lines • Show All 508 Lines • ▼ Show 20 Lines99999 CONTINUE 05020007
WRITE (I02,90007) 05070007 WRITE (I02,90007) 05070007
WRITE (I02,90002) 05080007 WRITE (I02,90002) 05080007
WRITE (I02,90008) IVFAIL 05090007 WRITE (I02,90008) IVFAIL 05090007
WRITE (I02,90009) IVPASS 05100007 WRITE (I02,90009) IVPASS 05100007
WRITE (I02,90010) IVDELE 05110007 WRITE (I02,90010) IVDELE 05110007
C 05120007 C 05120007
C 05130007 C 05130007
C TERMINATE ROUTINE EXECUTION 05140007 C TERMINATE ROUTINE EXECUTION 05140007
STOP 05150007 STOP, QUIET = .TRUE. 05150007
C 05160007 C 05160007
C FORMAT STATEMENTS FOR PAGE HEADERS 05170007 C FORMAT STATEMENTS FOR PAGE HEADERS 05170007
90000 FORMAT ("1") 05180007 90000 FORMAT ("1") 05180007
90002 FORMAT (" ") 05190007 90002 FORMAT (" ") 05190007
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05200007 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05200007
90003 FORMAT (" ",21X,"VERSION 2.1" ) 05210007 90003 FORMAT (" ",21X,"VERSION 2.1" ) 05210007
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05220007 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05220007
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05230007 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05230007
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM008.f

Show First 20 Lines • Show All 829 Lines • ▼ Show 20 Lines99999 CONTINUE 08230008
WRITE (I02,90007) 08280008 WRITE (I02,90007) 08280008
WRITE (I02,90002) 08290008 WRITE (I02,90002) 08290008
WRITE (I02,90008) IVFAIL 08300008 WRITE (I02,90008) IVFAIL 08300008
WRITE (I02,90009) IVPASS 08310008 WRITE (I02,90009) IVPASS 08310008
WRITE (I02,90010) IVDELE 08320008 WRITE (I02,90010) IVDELE 08320008
C 08330008 C 08330008
C 08340008 C 08340008
C TERMINATE ROUTINE EXECUTION 08350008 C TERMINATE ROUTINE EXECUTION 08350008
STOP 08360008 STOP, QUIET = .TRUE. 08360008
C 08370008 C 08370008
C FORMAT STATEMENTS FOR PAGE HEADERS 08380008 C FORMAT STATEMENTS FOR PAGE HEADERS 08380008
90000 FORMAT ("1") 08390008 90000 FORMAT ("1") 08390008
90002 FORMAT (" ") 08400008 90002 FORMAT (" ") 08400008
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08410008 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08410008
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08420008 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08420008
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08430008 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08430008
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08440008 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08440008
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM009.f

Show First 20 Lines • Show All 758 Lines • ▼ Show 20 Lines99999 CONTINUE 07520009
WRITE (I02,90007) 07570009 WRITE (I02,90007) 07570009
WRITE (I02,90002) 07580009 WRITE (I02,90002) 07580009
WRITE (I02,90008) IVFAIL 07590009 WRITE (I02,90008) IVFAIL 07590009
WRITE (I02,90009) IVPASS 07600009 WRITE (I02,90009) IVPASS 07600009
WRITE (I02,90010) IVDELE 07610009 WRITE (I02,90010) IVDELE 07610009
C 07620009 C 07620009
C 07630009 C 07630009
C TERMINATE ROUTINE EXECUTION 07640009 C TERMINATE ROUTINE EXECUTION 07640009
STOP 07650009 STOP, QUIET = .TRUE. 07650009
C 07660009 C 07660009
C FORMAT STATEMENTS FOR PAGE HEADERS 07670009 C FORMAT STATEMENTS FOR PAGE HEADERS 07670009
90000 FORMAT ("1") 07680009 90000 FORMAT ("1") 07680009
90002 FORMAT (" ") 07690009 90002 FORMAT (" ") 07690009
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07700009 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07700009
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07710009 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07710009
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07720009 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07720009
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07730009 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07730009
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM010.f

Show First 20 Lines • Show All 283 Lines • ▼ Show 20 Lines99999 CONTINUE 02770010
WRITE (I02,90007) 02820010 WRITE (I02,90007) 02820010
WRITE (I02,90002) 02830010 WRITE (I02,90002) 02830010
WRITE (I02,90008) IVFAIL 02840010 WRITE (I02,90008) IVFAIL 02840010
WRITE (I02,90009) IVPASS 02850010 WRITE (I02,90009) IVPASS 02850010
WRITE (I02,90010) IVDELE 02860010 WRITE (I02,90010) IVDELE 02860010
C 02870010 C 02870010
C 02880010 C 02880010
C TERMINATE ROUTINE EXECUTION 02890010 C TERMINATE ROUTINE EXECUTION 02890010
STOP 02900010 STOP, QUIET = .TRUE. 02900010
C 02910010 C 02910010
C FORMAT STATEMENTS FOR PAGE HEADERS 02920010 C FORMAT STATEMENTS FOR PAGE HEADERS 02920010
90000 FORMAT ("1") 02930010 90000 FORMAT ("1") 02930010
90002 FORMAT (" ") 02940010 90002 FORMAT (" ") 02940010
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02950010 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02950010
90003 FORMAT (" ",21X,"VERSION 2.1" ) 02960010 90003 FORMAT (" ",21X,"VERSION 2.1" ) 02960010
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02970010 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02970010
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02980010 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02980010
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM011.f

Show First 20 Lines • Show All 261 Lines • ▼ Show 20 Lines99999 CONTINUE 02550011
WRITE (I02,90007) 02600011 WRITE (I02,90007) 02600011
WRITE (I02,90002) 02610011 WRITE (I02,90002) 02610011
WRITE (I02,90008) IVFAIL 02620011 WRITE (I02,90008) IVFAIL 02620011
WRITE (I02,90009) IVPASS 02630011 WRITE (I02,90009) IVPASS 02630011
WRITE (I02,90010) IVDELE 02640011 WRITE (I02,90010) IVDELE 02640011
C 02650011 C 02650011
C 02660011 C 02660011
C TERMINATE ROUTINE EXECUTION 02670011 C TERMINATE ROUTINE EXECUTION 02670011
STOP 02680011 STOP, QUIET = .TRUE. 02680011
C 02690011 C 02690011
C FORMAT STATEMENTS FOR PAGE HEADERS 02700011 C FORMAT STATEMENTS FOR PAGE HEADERS 02700011
90000 FORMAT ("1") 02710011 90000 FORMAT ("1") 02710011
90002 FORMAT (" ") 02720011 90002 FORMAT (" ") 02720011
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02730011 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02730011
90003 FORMAT (" ",21X,"VERSION 2.1" ) 02740011 90003 FORMAT (" ",21X,"VERSION 2.1" ) 02740011
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02750011 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02750011
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02760011 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02760011
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM012.f

Show First 20 Lines • Show All 549 Lines • ▼ Show 20 Lines99999 CONTINUE 05610012
WRITE (I02,90007) 05660012 WRITE (I02,90007) 05660012
WRITE (I02,90002) 05670012 WRITE (I02,90002) 05670012
WRITE (I02,90008) IVFAIL 05680012 WRITE (I02,90008) IVFAIL 05680012
WRITE (I02,90009) IVPASS 05690012 WRITE (I02,90009) IVPASS 05690012
WRITE (I02,90010) IVDELE 05700012 WRITE (I02,90010) IVDELE 05700012
C 05710012 C 05710012
C 05720012 C 05720012
C TERMINATE ROUTINE EXECUTION 05730012 C TERMINATE ROUTINE EXECUTION 05730012
STOP 05740012 STOP, QUIET = .TRUE. 05740012
C 05750012 C 05750012
C FORMAT STATEMENTS FOR PAGE HEADERS 05760012 C FORMAT STATEMENTS FOR PAGE HEADERS 05760012
90000 FORMAT ("1") 05770012 90000 FORMAT ("1") 05770012
90002 FORMAT (" ") 05780012 90002 FORMAT (" ") 05780012
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05790012 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05790012
90003 FORMAT (" ",21X,"VERSION 2.1" ) 05800012 90003 FORMAT (" ",21X,"VERSION 2.1" ) 05800012
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05810012 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05810012
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05820012 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05820012
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM013.f

Show First 20 Lines • Show All 257 Lines • ▼ Show 20 Lines99999 CONTINUE 02510013
WRITE (I02,90007) 02560013 WRITE (I02,90007) 02560013
WRITE (I02,90002) 02570013 WRITE (I02,90002) 02570013
WRITE (I02,90008) IVFAIL 02580013 WRITE (I02,90008) IVFAIL 02580013
WRITE (I02,90009) IVPASS 02590013 WRITE (I02,90009) IVPASS 02590013
WRITE (I02,90010) IVDELE 02600013 WRITE (I02,90010) IVDELE 02600013
C 02610013 C 02610013
C 02620013 C 02620013
C TERMINATE ROUTINE EXECUTION 02630013 C TERMINATE ROUTINE EXECUTION 02630013
STOP 02640013 STOP, QUIET = .TRUE. 02640013
C 02650013 C 02650013
C FORMAT STATEMENTS FOR PAGE HEADERS 02660013 C FORMAT STATEMENTS FOR PAGE HEADERS 02660013
90000 FORMAT ("1") 02670013 90000 FORMAT ("1") 02670013
90002 FORMAT (" ") 02680013 90002 FORMAT (" ") 02680013
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02690013 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02690013
90003 FORMAT (" ",21X,"VERSION 2.1" ) 02700013 90003 FORMAT (" ",21X,"VERSION 2.1" ) 02700013
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02710013 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02710013
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02720013 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02720013
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM014.f

Show First 20 Lines • Show All 219 Lines • ▼ Show 20 Lines99999 CONTINUE 02130014
WRITE (I02,90007) 02180014 WRITE (I02,90007) 02180014
WRITE (I02,90002) 02190014 WRITE (I02,90002) 02190014
WRITE (I02,90008) IVFAIL 02200014 WRITE (I02,90008) IVFAIL 02200014
WRITE (I02,90009) IVPASS 02210014 WRITE (I02,90009) IVPASS 02210014
WRITE (I02,90010) IVDELE 02220014 WRITE (I02,90010) IVDELE 02220014
C 02230014 C 02230014
C 02240014 C 02240014
C TERMINATE ROUTINE EXECUTION 02250014 C TERMINATE ROUTINE EXECUTION 02250014
STOP 02260014 STOP, QUIET = .TRUE. 02260014
C 02270014 C 02270014
C FORMAT STATEMENTS FOR PAGE HEADERS 02280014 C FORMAT STATEMENTS FOR PAGE HEADERS 02280014
90000 FORMAT ("1") 02290014 90000 FORMAT ("1") 02290014
90002 FORMAT (" ") 02300014 90002 FORMAT (" ") 02300014
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02310014 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02310014
90003 FORMAT (" ",21X,"VERSION 2.1" ) 02320014 90003 FORMAT (" ",21X,"VERSION 2.1" ) 02320014
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02330014 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02330014
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02340014 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02340014
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM016.f

Show First 20 Lines • Show All 800 Lines • ▼ Show 20 Lines99999 CONTINUE 07940016
WRITE (I02,90007) 07990016 WRITE (I02,90007) 07990016
WRITE (I02,90002) 08000016 WRITE (I02,90002) 08000016
WRITE (I02,90008) IVFAIL 08010016 WRITE (I02,90008) IVFAIL 08010016
WRITE (I02,90009) IVPASS 08020016 WRITE (I02,90009) IVPASS 08020016
WRITE (I02,90010) IVDELE 08030016 WRITE (I02,90010) IVDELE 08030016
C 08040016 C 08040016
C 08050016 C 08050016
C TERMINATE ROUTINE EXECUTION 08060016 C TERMINATE ROUTINE EXECUTION 08060016
STOP 08070016 STOP, QUIET = .TRUE. 08070016
C 08080016 C 08080016
C FORMAT STATEMENTS FOR PAGE HEADERS 08090016 C FORMAT STATEMENTS FOR PAGE HEADERS 08090016
90000 FORMAT ("1") 08100016 90000 FORMAT ("1") 08100016
90002 FORMAT (" ") 08110016 90002 FORMAT (" ") 08110016
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08120016 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08120016
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08130016 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08130016
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08140016 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08140016
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08150016 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08150016
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM017.f

Show First 20 Lines • Show All 854 Lines • ▼ Show 20 Lines99999 CONTINUE 08480017
WRITE (I02,90007) 08530017 WRITE (I02,90007) 08530017
WRITE (I02,90002) 08540017 WRITE (I02,90002) 08540017
WRITE (I02,90008) IVFAIL 08550017 WRITE (I02,90008) IVFAIL 08550017
WRITE (I02,90009) IVPASS 08560017 WRITE (I02,90009) IVPASS 08560017
WRITE (I02,90010) IVDELE 08570017 WRITE (I02,90010) IVDELE 08570017
C 08580017 C 08580017
C 08590017 C 08590017
C TERMINATE ROUTINE EXECUTION 08600017 C TERMINATE ROUTINE EXECUTION 08600017
STOP 08610017 STOP, QUIET = .TRUE. 08610017
C 08620017 C 08620017
C FORMAT STATEMENTS FOR PAGE HEADERS 08630017 C FORMAT STATEMENTS FOR PAGE HEADERS 08630017
90000 FORMAT ("1") 08640017 90000 FORMAT ("1") 08640017
90002 FORMAT (" ") 08650017 90002 FORMAT (" ") 08650017
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08660017 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08660017
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08670017 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08670017
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08680017 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08680017
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08690017 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08690017
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM018.f

Show First 20 Lines • Show All 865 Lines • ▼ Show 20 Lines99999 CONTINUE 08590018
WRITE (I02,90007) 08640018 WRITE (I02,90007) 08640018
WRITE (I02,90002) 08650018 WRITE (I02,90002) 08650018
WRITE (I02,90008) IVFAIL 08660018 WRITE (I02,90008) IVFAIL 08660018
WRITE (I02,90009) IVPASS 08670018 WRITE (I02,90009) IVPASS 08670018
WRITE (I02,90010) IVDELE 08680018 WRITE (I02,90010) IVDELE 08680018
C 08690018 C 08690018
C 08700018 C 08700018
C TERMINATE ROUTINE EXECUTION 08710018 C TERMINATE ROUTINE EXECUTION 08710018
STOP 08720018 STOP, QUIET = .TRUE. 08720018
C 08730018 C 08730018
C FORMAT STATEMENTS FOR PAGE HEADERS 08740018 C FORMAT STATEMENTS FOR PAGE HEADERS 08740018
90000 FORMAT ("1") 08750018 90000 FORMAT ("1") 08750018
90002 FORMAT (" ") 08760018 90002 FORMAT (" ") 08760018
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08770018 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08770018
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08780018 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08780018
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08790018 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08790018
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08800018 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08800018
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM019.f

Show First 20 Lines • Show All 670 Lines • ▼ Show 20 Lines99999 CONTINUE 06640019
WRITE (I02,90007) 06690019 WRITE (I02,90007) 06690019
WRITE (I02,90002) 06700019 WRITE (I02,90002) 06700019
WRITE (I02,90008) IVFAIL 06710019 WRITE (I02,90008) IVFAIL 06710019
WRITE (I02,90009) IVPASS 06720019 WRITE (I02,90009) IVPASS 06720019
WRITE (I02,90010) IVDELE 06730019 WRITE (I02,90010) IVDELE 06730019
C 06740019 C 06740019
C 06750019 C 06750019
C TERMINATE ROUTINE EXECUTION 06760019 C TERMINATE ROUTINE EXECUTION 06760019
STOP 06770019 STOP, QUIET = .TRUE. 06770019
C 06780019 C 06780019
C FORMAT STATEMENTS FOR PAGE HEADERS 06790019 C FORMAT STATEMENTS FOR PAGE HEADERS 06790019
90000 FORMAT ("1") 06800019 90000 FORMAT ("1") 06800019
90002 FORMAT (" ") 06810019 90002 FORMAT (" ") 06810019
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 06820019 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 06820019
90003 FORMAT (" ",21X,"VERSION 2.1" ) 06830019 90003 FORMAT (" ",21X,"VERSION 2.1" ) 06830019
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 06840019 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 06840019
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 06850019 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 06850019
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM020.f

Show First 20 Lines • Show All 449 Lines • ▼ Show 20 Lines99999 CONTINUE 04430020
WRITE (I02,90007) 04480020 WRITE (I02,90007) 04480020
WRITE (I02,90002) 04490020 WRITE (I02,90002) 04490020
WRITE (I02,90008) IVFAIL 04500020 WRITE (I02,90008) IVFAIL 04500020
WRITE (I02,90009) IVPASS 04510020 WRITE (I02,90009) IVPASS 04510020
WRITE (I02,90010) IVDELE 04520020 WRITE (I02,90010) IVDELE 04520020
C 04530020 C 04530020
C 04540020 C 04540020
C TERMINATE ROUTINE EXECUTION 04550020 C TERMINATE ROUTINE EXECUTION 04550020
STOP 04560020 STOP, QUIET = .TRUE. 04560020
C 04570020 C 04570020
C FORMAT STATEMENTS FOR PAGE HEADERS 04580020 C FORMAT STATEMENTS FOR PAGE HEADERS 04580020
90000 FORMAT ("1") 04590020 90000 FORMAT ("1") 04590020
90002 FORMAT (" ") 04600020 90002 FORMAT (" ") 04600020
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04610020 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04610020
90003 FORMAT (" ",21X,"VERSION 2.1" ) 04620020 90003 FORMAT (" ",21X,"VERSION 2.1" ) 04620020
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04630020 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04630020
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04640020 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04640020
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM021.f

Show First 20 Lines • Show All 994 Lines • ▼ Show 20 Lines99999 CONTINUE 09880021
WRITE (I02,90007) 09930021 WRITE (I02,90007) 09930021
WRITE (I02,90002) 09940021 WRITE (I02,90002) 09940021
WRITE (I02,90008) IVFAIL 09950021 WRITE (I02,90008) IVFAIL 09950021
WRITE (I02,90009) IVPASS 09960021 WRITE (I02,90009) IVPASS 09960021
WRITE (I02,90010) IVDELE 09970021 WRITE (I02,90010) IVDELE 09970021
C 09980021 C 09980021
C 09990021 C 09990021
C TERMINATE ROUTINE EXECUTION 10000021 C TERMINATE ROUTINE EXECUTION 10000021
STOP 10010021 STOP, QUIET = .TRUE. 10010021
C 10020021 C 10020021
C FORMAT STATEMENTS FOR PAGE HEADERS 10030021 C FORMAT STATEMENTS FOR PAGE HEADERS 10030021
90000 FORMAT ("1") 10040021 90000 FORMAT ("1") 10040021
90002 FORMAT (" ") 10050021 90002 FORMAT (" ") 10050021
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 10060021 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 10060021
90003 FORMAT (" ",21X,"VERSION 2.1" ) 10070021 90003 FORMAT (" ",21X,"VERSION 2.1" ) 10070021
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 10080021 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 10080021
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 10090021 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 10090021
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM022.f

Show First 20 Lines • Show All 778 Lines • ▼ Show 20 Lines99999 CONTINUE 07720022
WRITE (I02,90007) 07770022 WRITE (I02,90007) 07770022
WRITE (I02,90002) 07780022 WRITE (I02,90002) 07780022
WRITE (I02,90008) IVFAIL 07790022 WRITE (I02,90008) IVFAIL 07790022
WRITE (I02,90009) IVPASS 07800022 WRITE (I02,90009) IVPASS 07800022
WRITE (I02,90010) IVDELE 07810022 WRITE (I02,90010) IVDELE 07810022
C 07820022 C 07820022
C 07830022 C 07830022
C TERMINATE ROUTINE EXECUTION 07840022 C TERMINATE ROUTINE EXECUTION 07840022
STOP 07850022 STOP, QUIET = .TRUE. 07850022
C 07860022 C 07860022
C FORMAT STATEMENTS FOR PAGE HEADERS 07870022 C FORMAT STATEMENTS FOR PAGE HEADERS 07870022
90000 FORMAT ("1") 07880022 90000 FORMAT ("1") 07880022
90002 FORMAT (" ") 07890022 90002 FORMAT (" ") 07890022
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07900022 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07900022
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07910022 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07910022
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07920022 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07920022
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07930022 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07930022
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM023.f

Show First 20 Lines • Show All 419 Lines • ▼ Show 20 Lines99999 CONTINUE 04130023
WRITE (I02,90007) 04180023 WRITE (I02,90007) 04180023
WRITE (I02,90002) 04190023 WRITE (I02,90002) 04190023
WRITE (I02,90008) IVFAIL 04200023 WRITE (I02,90008) IVFAIL 04200023
WRITE (I02,90009) IVPASS 04210023 WRITE (I02,90009) IVPASS 04210023
WRITE (I02,90010) IVDELE 04220023 WRITE (I02,90010) IVDELE 04220023
C 04230023 C 04230023
C 04240023 C 04240023
C TERMINATE ROUTINE EXECUTION 04250023 C TERMINATE ROUTINE EXECUTION 04250023
STOP 04260023 STOP, QUIET = .TRUE. 04260023
C 04270023 C 04270023
C FORMAT STATEMENTS FOR PAGE HEADERS 04280023 C FORMAT STATEMENTS FOR PAGE HEADERS 04280023
90000 FORMAT ("1") 04290023 90000 FORMAT ("1") 04290023
90002 FORMAT (" ") 04300023 90002 FORMAT (" ") 04300023
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04310023 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04310023
90003 FORMAT (" ",21X,"VERSION 2.1" ) 04320023 90003 FORMAT (" ",21X,"VERSION 2.1" ) 04320023
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04330023 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04330023
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04340023 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04340023
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM024.f

Show First 20 Lines • Show All 328 Lines • ▼ Show 20 Lines99999 CONTINUE 03220024
WRITE (I02,90007) 03270024 WRITE (I02,90007) 03270024
WRITE (I02,90002) 03280024 WRITE (I02,90002) 03280024
WRITE (I02,90008) IVFAIL 03290024 WRITE (I02,90008) IVFAIL 03290024
WRITE (I02,90009) IVPASS 03300024 WRITE (I02,90009) IVPASS 03300024
WRITE (I02,90010) IVDELE 03310024 WRITE (I02,90010) IVDELE 03310024
C 03320024 C 03320024
C 03330024 C 03330024
C TERMINATE ROUTINE EXECUTION 03340024 C TERMINATE ROUTINE EXECUTION 03340024
STOP 03350024 STOP, QUIET = .TRUE. 03350024
C 03360024 C 03360024
C FORMAT STATEMENTS FOR PAGE HEADERS 03370024 C FORMAT STATEMENTS FOR PAGE HEADERS 03370024
90000 FORMAT ("1") 03380024 90000 FORMAT ("1") 03380024
90002 FORMAT (" ") 03390024 90002 FORMAT (" ") 03390024
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03400024 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03400024
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03410024 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03410024
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03420024 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03420024
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03430024 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03430024
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM025.f

Show First 20 Lines • Show All 405 Lines • ▼ Show 20 Lines99999 CONTINUE 04350025
WRITE (I02,90007) 04400025 WRITE (I02,90007) 04400025
WRITE (I02,90002) 04410025 WRITE (I02,90002) 04410025
WRITE (I02,90008) IVFAIL 04420025 WRITE (I02,90008) IVFAIL 04420025
WRITE (I02,90009) IVPASS 04430025 WRITE (I02,90009) IVPASS 04430025
WRITE (I02,90010) IVDELE 04440025 WRITE (I02,90010) IVDELE 04440025
C 04450025 C 04450025
C 04460025 C 04460025
C TERMINATE ROUTINE EXECUTION 04470025 C TERMINATE ROUTINE EXECUTION 04470025
STOP 04480025 STOP, QUIET = .TRUE. 04480025
C 04490025 C 04490025
C FORMAT STATEMENTS FOR PAGE HEADERS 04500025 C FORMAT STATEMENTS FOR PAGE HEADERS 04500025
90000 FORMAT ("1") 04510025 90000 FORMAT ("1") 04510025
90002 FORMAT (" ") 04520025 90002 FORMAT (" ") 04520025
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04530025 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04530025
90003 FORMAT (" ",21X,"VERSION 2.1" ) 04540025 90003 FORMAT (" ",21X,"VERSION 2.1" ) 04540025
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04550025 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04550025
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04560025 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04560025
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM026.f

Show First 20 Lines • Show All 197 Lines • ▼ Show 20 Lines99999 CONTINUE 01910026
WRITE (I02,90007) 01960026 WRITE (I02,90007) 01960026
WRITE (I02,90002) 01970026 WRITE (I02,90002) 01970026
WRITE (I02,90008) IVFAIL 01980026 WRITE (I02,90008) IVFAIL 01980026
WRITE (I02,90009) IVPASS 01990026 WRITE (I02,90009) IVPASS 01990026
WRITE (I02,90010) IVDELE 02000026 WRITE (I02,90010) IVDELE 02000026
C 02010026 C 02010026
C 02020026 C 02020026
C TERMINATE ROUTINE EXECUTION 02030026 C TERMINATE ROUTINE EXECUTION 02030026
STOP 02040026 STOP, QUIET = .TRUE. 02040026
C 02050026 C 02050026
C FORMAT STATEMENTS FOR PAGE HEADERS 02060026 C FORMAT STATEMENTS FOR PAGE HEADERS 02060026
90000 FORMAT ("1") 02070026 90000 FORMAT ("1") 02070026
90002 FORMAT (" ") 02080026 90002 FORMAT (" ") 02080026
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02090026 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02090026
90003 FORMAT (" ",21X,"VERSION 2.1" ) 02100026 90003 FORMAT (" ",21X,"VERSION 2.1" ) 02100026
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02110026 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02110026
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02120026 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02120026
▲ Show 20 Lines • Show All 46 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM028.f

Show First 20 Lines • Show All 203 Lines • ▼ Show 20 Lines99999 CONTINUE 01970028
WRITE (I02,90007) 02020028 WRITE (I02,90007) 02020028
WRITE (I02,90002) 02030028 WRITE (I02,90002) 02030028
WRITE (I02,90008) IVFAIL 02040028 WRITE (I02,90008) IVFAIL 02040028
WRITE (I02,90009) IVPASS 02050028 WRITE (I02,90009) IVPASS 02050028
WRITE (I02,90010) IVDELE 02060028 WRITE (I02,90010) IVDELE 02060028
C 02070028 C 02070028
C 02080028 C 02080028
C TERMINATE ROUTINE EXECUTION 02090028 C TERMINATE ROUTINE EXECUTION 02090028
STOP 02100028 STOP, QUIET = .TRUE. 02100028
C 02110028 C 02110028
C FORMAT STATEMENTS FOR PAGE HEADERS 02120028 C FORMAT STATEMENTS FOR PAGE HEADERS 02120028
90000 FORMAT ("1") 02130028 90000 FORMAT ("1") 02130028
90002 FORMAT (" ") 02140028 90002 FORMAT (" ") 02140028
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02150028 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 02150028
90003 FORMAT (" ",21X,"VERSION 2.1" ) 02160028 90003 FORMAT (" ",21X,"VERSION 2.1" ) 02160028
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02170028 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 02170028
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02180028 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 02180028
▲ Show 20 Lines • Show All 46 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM030.f

Show First 20 Lines • Show All 815 Lines • ▼ Show 20 Lines99999 CONTINUE 08090030
WRITE (I02,90007) 08140030 WRITE (I02,90007) 08140030
WRITE (I02,90002) 08150030 WRITE (I02,90002) 08150030
WRITE (I02,90008) IVFAIL 08160030 WRITE (I02,90008) IVFAIL 08160030
WRITE (I02,90009) IVPASS 08170030 WRITE (I02,90009) IVPASS 08170030
WRITE (I02,90010) IVDELE 08180030 WRITE (I02,90010) IVDELE 08180030
C 08190030 C 08190030
C 08200030 C 08200030
C TERMINATE ROUTINE EXECUTION 08210030 C TERMINATE ROUTINE EXECUTION 08210030
STOP 08220030 STOP, QUIET = .TRUE. 08220030
C 08230030 C 08230030
C FORMAT STATEMENTS FOR PAGE HEADERS 08240030 C FORMAT STATEMENTS FOR PAGE HEADERS 08240030
90000 FORMAT ("1") 08250030 90000 FORMAT ("1") 08250030
90002 FORMAT (" ") 08260030 90002 FORMAT (" ") 08260030
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08270030 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08270030
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08280030 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08280030
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08290030 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08290030
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08300030 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08300030
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM031.f

Show First 20 Lines • Show All 736 Lines • ▼ Show 20 Lines99999 CONTINUE 07300031
WRITE (I02,90007) 07350031 WRITE (I02,90007) 07350031
WRITE (I02,90002) 07360031 WRITE (I02,90002) 07360031
WRITE (I02,90008) IVFAIL 07370031 WRITE (I02,90008) IVFAIL 07370031
WRITE (I02,90009) IVPASS 07380031 WRITE (I02,90009) IVPASS 07380031
WRITE (I02,90010) IVDELE 07390031 WRITE (I02,90010) IVDELE 07390031
C 07400031 C 07400031
C 07410031 C 07410031
C TERMINATE ROUTINE EXECUTION 07420031 C TERMINATE ROUTINE EXECUTION 07420031
STOP 07430031 STOP, QUIET = .TRUE. 07430031
C 07440031 C 07440031
C FORMAT STATEMENTS FOR PAGE HEADERS 07450031 C FORMAT STATEMENTS FOR PAGE HEADERS 07450031
90000 FORMAT ("1") 07460031 90000 FORMAT ("1") 07460031
90002 FORMAT (" ") 07470031 90002 FORMAT (" ") 07470031
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07480031 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07480031
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07490031 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07490031
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07500031 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07500031
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07510031 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07510031
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM032.f

Show First 20 Lines • Show All 762 Lines • ▼ Show 20 Lines99999 CONTINUE 07560032
WRITE (I02,90007) 07610032 WRITE (I02,90007) 07610032
WRITE (I02,90002) 07620032 WRITE (I02,90002) 07620032
WRITE (I02,90008) IVFAIL 07630032 WRITE (I02,90008) IVFAIL 07630032
WRITE (I02,90009) IVPASS 07640032 WRITE (I02,90009) IVPASS 07640032
WRITE (I02,90010) IVDELE 07650032 WRITE (I02,90010) IVDELE 07650032
C 07660032 C 07660032
C 07670032 C 07670032
C TERMINATE ROUTINE EXECUTION 07680032 C TERMINATE ROUTINE EXECUTION 07680032
STOP 07690032 STOP, QUIET = .TRUE. 07690032
C 07700032 C 07700032
C FORMAT STATEMENTS FOR PAGE HEADERS 07710032 C FORMAT STATEMENTS FOR PAGE HEADERS 07710032
90000 FORMAT ("1") 07720032 90000 FORMAT ("1") 07720032
90002 FORMAT (" ") 07730032 90002 FORMAT (" ") 07730032
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07740032 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07740032
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07750032 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07750032
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07760032 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07760032
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07770032 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07770032
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM033.f

Show First 20 Lines • Show All 808 Lines • ▼ Show 20 Lines99999 CONTINUE 08020033
WRITE (I02,90007) 08070033 WRITE (I02,90007) 08070033
WRITE (I02,90002) 08080033 WRITE (I02,90002) 08080033
WRITE (I02,90008) IVFAIL 08090033 WRITE (I02,90008) IVFAIL 08090033
WRITE (I02,90009) IVPASS 08100033 WRITE (I02,90009) IVPASS 08100033
WRITE (I02,90010) IVDELE 08110033 WRITE (I02,90010) IVDELE 08110033
C 08120033 C 08120033
C 08130033 C 08130033
C TERMINATE ROUTINE EXECUTION 08140033 C TERMINATE ROUTINE EXECUTION 08140033
STOP 08150033 STOP, QUIET = .TRUE. 08150033
C 08160033 C 08160033
C FORMAT STATEMENTS FOR PAGE HEADERS 08170033 C FORMAT STATEMENTS FOR PAGE HEADERS 08170033
90000 FORMAT ("1") 08180033 90000 FORMAT ("1") 08180033
90002 FORMAT (" ") 08190033 90002 FORMAT (" ") 08190033
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08200033 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08200033
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08210033 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08210033
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08220033 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08220033
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08230033 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08230033
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM034.f

Show First 20 Lines • Show All 859 Lines • ▼ Show 20 Lines99999 CONTINUE 08530034
WRITE (I02,90007) 08580034 WRITE (I02,90007) 08580034
WRITE (I02,90002) 08590034 WRITE (I02,90002) 08590034
WRITE (I02,90008) IVFAIL 08600034 WRITE (I02,90008) IVFAIL 08600034
WRITE (I02,90009) IVPASS 08610034 WRITE (I02,90009) IVPASS 08610034
WRITE (I02,90010) IVDELE 08620034 WRITE (I02,90010) IVDELE 08620034
C 08630034 C 08630034
C 08640034 C 08640034
C TERMINATE ROUTINE EXECUTION 08650034 C TERMINATE ROUTINE EXECUTION 08650034
STOP 08660034 STOP, QUIET = .TRUE. 08660034
C 08670034 C 08670034
C FORMAT STATEMENTS FOR PAGE HEADERS 08680034 C FORMAT STATEMENTS FOR PAGE HEADERS 08680034
90000 FORMAT ("1") 08690034 90000 FORMAT ("1") 08690034
90002 FORMAT (" ") 08700034 90002 FORMAT (" ") 08700034
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08710034 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08710034
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08720034 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08720034
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08730034 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08730034
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08740034 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08740034
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM035.f

Show First 20 Lines • Show All 815 Lines • ▼ Show 20 Lines99999 CONTINUE 08090035
WRITE (I02,90007) 08140035 WRITE (I02,90007) 08140035
WRITE (I02,90002) 08150035 WRITE (I02,90002) 08150035
WRITE (I02,90008) IVFAIL 08160035 WRITE (I02,90008) IVFAIL 08160035
WRITE (I02,90009) IVPASS 08170035 WRITE (I02,90009) IVPASS 08170035
WRITE (I02,90010) IVDELE 08180035 WRITE (I02,90010) IVDELE 08180035
C 08190035 C 08190035
C 08200035 C 08200035
C TERMINATE ROUTINE EXECUTION 08210035 C TERMINATE ROUTINE EXECUTION 08210035
STOP 08220035 STOP, QUIET = .TRUE. 08220035
C 08230035 C 08230035
C FORMAT STATEMENTS FOR PAGE HEADERS 08240035 C FORMAT STATEMENTS FOR PAGE HEADERS 08240035
90000 FORMAT ("1") 08250035 90000 FORMAT ("1") 08250035
90002 FORMAT (" ") 08260035 90002 FORMAT (" ") 08260035
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08270035 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08270035
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08280035 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08280035
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08290035 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08290035
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08300035 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08300035
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM036.f

Show First 20 Lines • Show All 690 Lines • ▼ Show 20 Lines99999 CONTINUE 06840036
WRITE (I02,90007) 06890036 WRITE (I02,90007) 06890036
WRITE (I02,90002) 06900036 WRITE (I02,90002) 06900036
WRITE (I02,90008) IVFAIL 06910036 WRITE (I02,90008) IVFAIL 06910036
WRITE (I02,90009) IVPASS 06920036 WRITE (I02,90009) IVPASS 06920036
WRITE (I02,90010) IVDELE 06930036 WRITE (I02,90010) IVDELE 06930036
C 06940036 C 06940036
C 06950036 C 06950036
C TERMINATE ROUTINE EXECUTION 06960036 C TERMINATE ROUTINE EXECUTION 06960036
STOP 06970036 STOP, QUIET = .TRUE. 06970036
C 06980036 C 06980036
C FORMAT STATEMENTS FOR PAGE HEADERS 06990036 C FORMAT STATEMENTS FOR PAGE HEADERS 06990036
90000 FORMAT ("1") 07000036 90000 FORMAT ("1") 07000036
90002 FORMAT (" ") 07010036 90002 FORMAT (" ") 07010036
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07020036 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07020036
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07030036 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07030036
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07040036 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07040036
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07050036 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07050036
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM037.f

Show First 20 Lines • Show All 697 Lines • ▼ Show 20 Lines99999 CONTINUE 06910037
WRITE (I02,90007) 06960037 WRITE (I02,90007) 06960037
WRITE (I02,90002) 06970037 WRITE (I02,90002) 06970037
WRITE (I02,90008) IVFAIL 06980037 WRITE (I02,90008) IVFAIL 06980037
WRITE (I02,90009) IVPASS 06990037 WRITE (I02,90009) IVPASS 06990037
WRITE (I02,90010) IVDELE 07000037 WRITE (I02,90010) IVDELE 07000037
C 07010037 C 07010037
C 07020037 C 07020037
C TERMINATE ROUTINE EXECUTION 07030037 C TERMINATE ROUTINE EXECUTION 07030037
STOP 07040037 STOP, QUIET = .TRUE. 07040037
C 07050037 C 07050037
C FORMAT STATEMENTS FOR PAGE HEADERS 07060037 C FORMAT STATEMENTS FOR PAGE HEADERS 07060037
90000 FORMAT ("1") 07070037 90000 FORMAT ("1") 07070037
90002 FORMAT (" ") 07080037 90002 FORMAT (" ") 07080037
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07090037 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07090037
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07100037 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07100037
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07110037 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07110037
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07120037 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07120037
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM038.f

Show First 20 Lines • Show All 765 Lines • ▼ Show 20 Lines99999 CONTINUE 07590038
WRITE (I02,90007) 07640038 WRITE (I02,90007) 07640038
WRITE (I02,90002) 07650038 WRITE (I02,90002) 07650038
WRITE (I02,90008) IVFAIL 07660038 WRITE (I02,90008) IVFAIL 07660038
WRITE (I02,90009) IVPASS 07670038 WRITE (I02,90009) IVPASS 07670038
WRITE (I02,90010) IVDELE 07680038 WRITE (I02,90010) IVDELE 07680038
C 07690038 C 07690038
C 07700038 C 07700038
C TERMINATE ROUTINE EXECUTION 07710038 C TERMINATE ROUTINE EXECUTION 07710038
STOP 07720038 STOP, QUIET = .TRUE. 07720038
C 07730038 C 07730038
C FORMAT STATEMENTS FOR PAGE HEADERS 07740038 C FORMAT STATEMENTS FOR PAGE HEADERS 07740038
90000 FORMAT ("1") 07750038 90000 FORMAT ("1") 07750038
90002 FORMAT (" ") 07760038 90002 FORMAT (" ") 07760038
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07770038 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07770038
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07780038 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07780038
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07790038 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07790038
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07800038 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07800038
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM039.f

Show First 20 Lines • Show All 748 Lines • ▼ Show 20 Lines99999 CONTINUE 07420039
WRITE (I02,90007) 07470039 WRITE (I02,90007) 07470039
WRITE (I02,90002) 07480039 WRITE (I02,90002) 07480039
WRITE (I02,90008) IVFAIL 07490039 WRITE (I02,90008) IVFAIL 07490039
WRITE (I02,90009) IVPASS 07500039 WRITE (I02,90009) IVPASS 07500039
WRITE (I02,90010) IVDELE 07510039 WRITE (I02,90010) IVDELE 07510039
C 07520039 C 07520039
C 07530039 C 07530039
C TERMINATE ROUTINE EXECUTION 07540039 C TERMINATE ROUTINE EXECUTION 07540039
STOP 07550039 STOP, QUIET = .TRUE. 07550039
C 07560039 C 07560039
C FORMAT STATEMENTS FOR PAGE HEADERS 07570039 C FORMAT STATEMENTS FOR PAGE HEADERS 07570039
90000 FORMAT ("1") 07580039 90000 FORMAT ("1") 07580039
90002 FORMAT (" ") 07590039 90002 FORMAT (" ") 07590039
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07600039 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07600039
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07610039 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07610039
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07620039 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07620039
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07630039 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07630039
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM040.f

Show First 20 Lines • Show All 864 Lines • ▼ Show 20 Lines99999 CONTINUE 08580040
WRITE (I02,90007) 08630040 WRITE (I02,90007) 08630040
WRITE (I02,90002) 08640040 WRITE (I02,90002) 08640040
WRITE (I02,90008) IVFAIL 08650040 WRITE (I02,90008) IVFAIL 08650040
WRITE (I02,90009) IVPASS 08660040 WRITE (I02,90009) IVPASS 08660040
WRITE (I02,90010) IVDELE 08670040 WRITE (I02,90010) IVDELE 08670040
C 08680040 C 08680040
C 08690040 C 08690040
C TERMINATE ROUTINE EXECUTION 08700040 C TERMINATE ROUTINE EXECUTION 08700040
STOP 08710040 STOP, QUIET = .TRUE. 08710040
C 08720040 C 08720040
C FORMAT STATEMENTS FOR PAGE HEADERS 08730040 C FORMAT STATEMENTS FOR PAGE HEADERS 08730040
90000 FORMAT ("1") 08740040 90000 FORMAT ("1") 08740040
90002 FORMAT (" ") 08750040 90002 FORMAT (" ") 08750040
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08760040 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08760040
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08770040 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08770040
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08780040 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08780040
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08790040 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08790040
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM041.f

Show First 20 Lines • Show All 809 Lines • ▼ Show 20 Lines99999 CONTINUE 08030041
WRITE (I02,90007) 08080041 WRITE (I02,90007) 08080041
WRITE (I02,90002) 08090041 WRITE (I02,90002) 08090041
WRITE (I02,90008) IVFAIL 08100041 WRITE (I02,90008) IVFAIL 08100041
WRITE (I02,90009) IVPASS 08110041 WRITE (I02,90009) IVPASS 08110041
WRITE (I02,90010) IVDELE 08120041 WRITE (I02,90010) IVDELE 08120041
C 08130041 C 08130041
C 08140041 C 08140041
C TERMINATE ROUTINE EXECUTION 08150041 C TERMINATE ROUTINE EXECUTION 08150041
STOP 08160041 STOP, QUIET = .TRUE. 08160041
C 08170041 C 08170041
C FORMAT STATEMENTS FOR PAGE HEADERS 08180041 C FORMAT STATEMENTS FOR PAGE HEADERS 08180041
90000 FORMAT ("1") 08190041 90000 FORMAT ("1") 08190041
90002 FORMAT (" ") 08200041 90002 FORMAT (" ") 08200041
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08210041 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08210041
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08220041 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08220041
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08230041 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08230041
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08240041 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08240041
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM042.f

Show First 20 Lines • Show All 842 Lines • ▼ Show 20 Lines99999 CONTINUE 08360042
WRITE (I02,90007) 08410042 WRITE (I02,90007) 08410042
WRITE (I02,90002) 08420042 WRITE (I02,90002) 08420042
WRITE (I02,90008) IVFAIL 08430042 WRITE (I02,90008) IVFAIL 08430042
WRITE (I02,90009) IVPASS 08440042 WRITE (I02,90009) IVPASS 08440042
WRITE (I02,90010) IVDELE 08450042 WRITE (I02,90010) IVDELE 08450042
C 08460042 C 08460042
C 08470042 C 08470042
C TERMINATE ROUTINE EXECUTION 08480042 C TERMINATE ROUTINE EXECUTION 08480042
STOP 08490042 STOP, QUIET = .TRUE. 08490042
C 08500042 C 08500042
C FORMAT STATEMENTS FOR PAGE HEADERS 08510042 C FORMAT STATEMENTS FOR PAGE HEADERS 08510042
90000 FORMAT ("1") 08520042 90000 FORMAT ("1") 08520042
90002 FORMAT (" ") 08530042 90002 FORMAT (" ") 08530042
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08540042 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08540042
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08550042 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08550042
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08560042 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08560042
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08570042 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08570042
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM043.f

Show First 20 Lines • Show All 943 Lines • ▼ Show 20 Lines99999 CONTINUE 09370043
WRITE (I02,90007) 09420043 WRITE (I02,90007) 09420043
WRITE (I02,90002) 09430043 WRITE (I02,90002) 09430043
WRITE (I02,90008) IVFAIL 09440043 WRITE (I02,90008) IVFAIL 09440043
WRITE (I02,90009) IVPASS 09450043 WRITE (I02,90009) IVPASS 09450043
WRITE (I02,90010) IVDELE 09460043 WRITE (I02,90010) IVDELE 09460043
C 09470043 C 09470043
C 09480043 C 09480043
C TERMINATE ROUTINE EXECUTION 09490043 C TERMINATE ROUTINE EXECUTION 09490043
STOP 09500043 STOP, QUIET = .TRUE. 09500043
C 09510043 C 09510043
C FORMAT STATEMENTS FOR PAGE HEADERS 09520043 C FORMAT STATEMENTS FOR PAGE HEADERS 09520043
90000 FORMAT ("1") 09530043 90000 FORMAT ("1") 09530043
90002 FORMAT (" ") 09540043 90002 FORMAT (" ") 09540043
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 09550043 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 09550043
90003 FORMAT (" ",21X,"VERSION 2.1" ) 09560043 90003 FORMAT (" ",21X,"VERSION 2.1" ) 09560043
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 09570043 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 09570043
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 09580043 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 09580043
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM044.f

Show First 20 Lines • Show All 752 Lines • ▼ Show 20 Lines99999 CONTINUE 07460044
WRITE (I02,90007) 07510044 WRITE (I02,90007) 07510044
WRITE (I02,90002) 07520044 WRITE (I02,90002) 07520044
WRITE (I02,90008) IVFAIL 07530044 WRITE (I02,90008) IVFAIL 07530044
WRITE (I02,90009) IVPASS 07540044 WRITE (I02,90009) IVPASS 07540044
WRITE (I02,90010) IVDELE 07550044 WRITE (I02,90010) IVDELE 07550044
C 07560044 C 07560044
C 07570044 C 07570044
C TERMINATE ROUTINE EXECUTION 07580044 C TERMINATE ROUTINE EXECUTION 07580044
STOP 07590044 STOP, QUIET = .TRUE. 07590044
C 07600044 C 07600044
C FORMAT STATEMENTS FOR PAGE HEADERS 07610044 C FORMAT STATEMENTS FOR PAGE HEADERS 07610044
90000 FORMAT ("1") 07620044 90000 FORMAT ("1") 07620044
90002 FORMAT (" ") 07630044 90002 FORMAT (" ") 07630044
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07640044 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07640044
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07650044 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07650044
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07660044 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07660044
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07670044 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07670044
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM045.f

Show First 20 Lines • Show All 444 Lines • ▼ Show 20 Lines99999 CONTINUE 04380045
WRITE (I02,90007) 04430045 WRITE (I02,90007) 04430045
WRITE (I02,90002) 04440045 WRITE (I02,90002) 04440045
WRITE (I02,90008) IVFAIL 04450045 WRITE (I02,90008) IVFAIL 04450045
WRITE (I02,90009) IVPASS 04460045 WRITE (I02,90009) IVPASS 04460045
WRITE (I02,90010) IVDELE 04470045 WRITE (I02,90010) IVDELE 04470045
C 04480045 C 04480045
C 04490045 C 04490045
C TERMINATE ROUTINE EXECUTION 04500045 C TERMINATE ROUTINE EXECUTION 04500045
STOP 04510045 STOP, QUIET = .TRUE. 04510045
C 04520045 C 04520045
C FORMAT STATEMENTS FOR PAGE HEADERS 04530045 C FORMAT STATEMENTS FOR PAGE HEADERS 04530045
90000 FORMAT ("1") 04540045 90000 FORMAT ("1") 04540045
90002 FORMAT (" ") 04550045 90002 FORMAT (" ") 04550045
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04560045 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04560045
90003 FORMAT (" ",21X,"VERSION 2.1" ) 04570045 90003 FORMAT (" ",21X,"VERSION 2.1" ) 04570045
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04580045 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04580045
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04590045 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04590045
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM050.f

Show First 20 Lines • Show All 365 Lines • ▼ Show 20 Lines99999 CONTINUE 03590050
WRITE (I02,90007) 03640050 WRITE (I02,90007) 03640050
WRITE (I02,90002) 03650050 WRITE (I02,90002) 03650050
WRITE (I02,90008) IVFAIL 03660050 WRITE (I02,90008) IVFAIL 03660050
WRITE (I02,90009) IVPASS 03670050 WRITE (I02,90009) IVPASS 03670050
WRITE (I02,90010) IVDELE 03680050 WRITE (I02,90010) IVDELE 03680050
C 03690050 C 03690050
C 03700050 C 03700050
C TERMINATE ROUTINE EXECUTION 03710050 C TERMINATE ROUTINE EXECUTION 03710050
STOP 03720050 STOP, QUIET = .TRUE. 03720050
C 03730050 C 03730050
C FORMAT STATEMENTS FOR PAGE HEADERS 03740050 C FORMAT STATEMENTS FOR PAGE HEADERS 03740050
90000 FORMAT ("1") 03750050 90000 FORMAT ("1") 03750050
90002 FORMAT (" ") 03760050 90002 FORMAT (" ") 03760050
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03770050 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03770050
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03780050 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03780050
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03790050 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03790050
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03800050 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03800050
▲ Show 20 Lines • Show All 184 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM056.f

Show First 20 Lines • Show All 386 Lines • ▼ Show 20 Lines99999 CONTINUE 03800056
WRITE (I02,90007) 03850056 WRITE (I02,90007) 03850056
WRITE (I02,90002) 03860056 WRITE (I02,90002) 03860056
WRITE (I02,90008) IVFAIL 03870056 WRITE (I02,90008) IVFAIL 03870056
WRITE (I02,90009) IVPASS 03880056 WRITE (I02,90009) IVPASS 03880056
WRITE (I02,90010) IVDELE 03890056 WRITE (I02,90010) IVDELE 03890056
C 03900056 C 03900056
C 03910056 C 03910056
C TERMINATE ROUTINE EXECUTION 03920056 C TERMINATE ROUTINE EXECUTION 03920056
STOP 03930056 STOP, QUIET = .TRUE. 03930056
C 03940056 C 03940056
C FORMAT STATEMENTS FOR PAGE HEADERS 03950056 C FORMAT STATEMENTS FOR PAGE HEADERS 03950056
90000 FORMAT ("1") 03960056 90000 FORMAT ("1") 03960056
90002 FORMAT (" ") 03970056 90002 FORMAT (" ") 03970056
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03980056 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03980056
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03990056 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03990056
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04000056 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 04000056
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04010056 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 04010056
▲ Show 20 Lines • Show All 129 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM060.f

Show First 20 Lines • Show All 820 Lines • ▼ Show 20 Lines99999 CONTINUE 08140060
WRITE (I02,90007) 08190060 WRITE (I02,90007) 08190060
WRITE (I02,90002) 08200060 WRITE (I02,90002) 08200060
WRITE (I02,90008) IVFAIL 08210060 WRITE (I02,90008) IVFAIL 08210060
WRITE (I02,90009) IVPASS 08220060 WRITE (I02,90009) IVPASS 08220060
WRITE (I02,90010) IVDELE 08230060 WRITE (I02,90010) IVDELE 08230060
C 08240060 C 08240060
C 08250060 C 08250060
C TERMINATE ROUTINE EXECUTION 08260060 C TERMINATE ROUTINE EXECUTION 08260060
STOP 08270060 STOP, QUIET = .TRUE. 08270060
C 08280060 C 08280060
C FORMAT STATEMENTS FOR PAGE HEADERS 08290060 C FORMAT STATEMENTS FOR PAGE HEADERS 08290060
90000 FORMAT ("1") 08300060 90000 FORMAT ("1") 08300060
90002 FORMAT (" ") 08310060 90002 FORMAT (" ") 08310060
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08320060 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08320060
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08330060 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08330060
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08340060 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08340060
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08350060 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08350060
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM061.f

Show First 20 Lines • Show All 754 Lines • ▼ Show 20 Lines99999 CONTINUE 07480061
WRITE (I02,90007) 07530061 WRITE (I02,90007) 07530061
WRITE (I02,90002) 07540061 WRITE (I02,90002) 07540061
WRITE (I02,90008) IVFAIL 07550061 WRITE (I02,90008) IVFAIL 07550061
WRITE (I02,90009) IVPASS 07560061 WRITE (I02,90009) IVPASS 07560061
WRITE (I02,90010) IVDELE 07570061 WRITE (I02,90010) IVDELE 07570061
C 07580061 C 07580061
C 07590061 C 07590061
C TERMINATE ROUTINE EXECUTION 07600061 C TERMINATE ROUTINE EXECUTION 07600061
STOP 07610061 STOP, QUIET = .TRUE. 07610061
C 07620061 C 07620061
C FORMAT STATEMENTS FOR PAGE HEADERS 07630061 C FORMAT STATEMENTS FOR PAGE HEADERS 07630061
90000 FORMAT ("1") 07640061 90000 FORMAT ("1") 07640061
90002 FORMAT (" ") 07650061 90002 FORMAT (" ") 07650061
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07660061 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 07660061
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07670061 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07670061
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07680061 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07680061
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07690061 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07690061
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM062.f

Show First 20 Lines • Show All 865 Lines • ▼ Show 20 Lines99999 CONTINUE 08590062
WRITE (I02,90007) 08640062 WRITE (I02,90007) 08640062
WRITE (I02,90002) 08650062 WRITE (I02,90002) 08650062
WRITE (I02,90008) IVFAIL 08660062 WRITE (I02,90008) IVFAIL 08660062
WRITE (I02,90009) IVPASS 08670062 WRITE (I02,90009) IVPASS 08670062
WRITE (I02,90010) IVDELE 08680062 WRITE (I02,90010) IVDELE 08680062
C 08690062 C 08690062
C 08700062 C 08700062
C TERMINATE ROUTINE EXECUTION 08710062 C TERMINATE ROUTINE EXECUTION 08710062
STOP 08720062 STOP, QUIET = .TRUE. 08720062
C 08730062 C 08730062
C FORMAT STATEMENTS FOR PAGE HEADERS 08740062 C FORMAT STATEMENTS FOR PAGE HEADERS 08740062
90000 FORMAT ("1") 08750062 90000 FORMAT ("1") 08750062
90002 FORMAT (" ") 08760062 90002 FORMAT (" ") 08760062
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08770062 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08770062
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08780062 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08780062
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08790062 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08790062
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08800062 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08800062
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM080.f

Show First 20 Lines • Show All 566 Lines • ▼ Show 20 Lines99999 CONTINUE 05600080
WRITE (I02,90007) 05650080 WRITE (I02,90007) 05650080
WRITE (I02,90002) 05660080 WRITE (I02,90002) 05660080
WRITE (I02,90008) IVFAIL 05670080 WRITE (I02,90008) IVFAIL 05670080
WRITE (I02,90009) IVPASS 05680080 WRITE (I02,90009) IVPASS 05680080
WRITE (I02,90010) IVDELE 05690080 WRITE (I02,90010) IVDELE 05690080
C 05700080 C 05700080
C 05710080 C 05710080
C TERMINATE ROUTINE EXECUTION 05720080 C TERMINATE ROUTINE EXECUTION 05720080
STOP 05730080 STOP, QUIET = .TRUE. 05730080
C 05740080 C 05740080
C FORMAT STATEMENTS FOR PAGE HEADERS 05750080 C FORMAT STATEMENTS FOR PAGE HEADERS 05750080
90000 FORMAT ("1") 05760080 90000 FORMAT ("1") 05760080
90002 FORMAT (" ") 05770080 90002 FORMAT (" ") 05770080
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05780080 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05780080
90003 FORMAT (" ",21X,"VERSION 2.1" ) 05790080 90003 FORMAT (" ",21X,"VERSION 2.1" ) 05790080
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05800080 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05800080
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05810080 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05810080
▲ Show 20 Lines • Show All 138 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM097.f

Show First 20 Lines • Show All 847 Lines • ▼ Show 20 Lines99999 CONTINUE 08410097
WRITE (I02,90007) 08460097 WRITE (I02,90007) 08460097
WRITE (I02,90002) 08470097 WRITE (I02,90002) 08470097
WRITE (I02,90008) IVFAIL 08480097 WRITE (I02,90008) IVFAIL 08480097
WRITE (I02,90009) IVPASS 08490097 WRITE (I02,90009) IVPASS 08490097
WRITE (I02,90010) IVDELE 08500097 WRITE (I02,90010) IVDELE 08500097
C 08510097 C 08510097
C 08520097 C 08520097
C TERMINATE ROUTINE EXECUTION 08530097 C TERMINATE ROUTINE EXECUTION 08530097
STOP 08540097 STOP, QUIET = .TRUE. 08540097
C 08550097 C 08550097
C FORMAT STATEMENTS FOR PAGE HEADERS 08560097 C FORMAT STATEMENTS FOR PAGE HEADERS 08560097
90000 FORMAT ("1") 08570097 90000 FORMAT ("1") 08570097
90002 FORMAT (" ") 08580097 90002 FORMAT (" ") 08580097
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08590097 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08590097
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08600097 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08600097
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08610097 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08610097
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08620097 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08620097
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM098.f

Show First 20 Lines • Show All 818 Lines • ▼ Show 20 Lines99999 CONTINUE 08120098
WRITE (I02,90007) 08170098 WRITE (I02,90007) 08170098
WRITE (I02,90002) 08180098 WRITE (I02,90002) 08180098
WRITE (I02,90008) IVFAIL 08190098 WRITE (I02,90008) IVFAIL 08190098
WRITE (I02,90009) IVPASS 08200098 WRITE (I02,90009) IVPASS 08200098
WRITE (I02,90010) IVDELE 08210098 WRITE (I02,90010) IVDELE 08210098
C 08220098 C 08220098
C 08230098 C 08230098
C TERMINATE ROUTINE EXECUTION 08240098 C TERMINATE ROUTINE EXECUTION 08240098
STOP 08250098 STOP, QUIET = .TRUE. 08250098
C 08260098 C 08260098
C FORMAT STATEMENTS FOR PAGE HEADERS 08270098 C FORMAT STATEMENTS FOR PAGE HEADERS 08270098
90000 FORMAT ("1") 08280098 90000 FORMAT ("1") 08280098
90002 FORMAT (" ") 08290098 90002 FORMAT (" ") 08290098
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08300098 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 08300098
90003 FORMAT (" ",21X,"VERSION 2.1" ) 08310098 90003 FORMAT (" ",21X,"VERSION 2.1" ) 08310098
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08320098 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 08320098
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08330098 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 08330098
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM099.f

Show First 20 Lines • Show All 687 Lines • ▼ Show 20 Lines99999 CONTINUE 06810099
WRITE (I02,90007) 06860099 WRITE (I02,90007) 06860099
WRITE (I02,90002) 06870099 WRITE (I02,90002) 06870099
WRITE (I02,90008) IVFAIL 06880099 WRITE (I02,90008) IVFAIL 06880099
WRITE (I02,90009) IVPASS 06890099 WRITE (I02,90009) IVPASS 06890099
WRITE (I02,90010) IVDELE 06900099 WRITE (I02,90010) IVDELE 06900099
C 06910099 C 06910099
C 06920099 C 06920099
C TERMINATE ROUTINE EXECUTION 06930099 C TERMINATE ROUTINE EXECUTION 06930099
STOP 06940099 STOP, QUIET = .TRUE. 06940099
C 06950099 C 06950099
C FORMAT STATEMENTS FOR PAGE HEADERS 06960099 C FORMAT STATEMENTS FOR PAGE HEADERS 06960099
90000 FORMAT ("1") 06970099 90000 FORMAT ("1") 06970099
90002 FORMAT (" ") 06980099 90002 FORMAT (" ") 06980099
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 06990099 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 06990099
90003 FORMAT (" ",21X,"VERSION 2.1" ) 07000099 90003 FORMAT (" ",21X,"VERSION 2.1" ) 07000099
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07010099 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 07010099
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07020099 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 07020099
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM100.f

Show First 20 Lines • Show All 336 Lines • ▼ Show 20 Lines99999 CONTINUE 03300100
WRITE (I02,90007) 03350100 WRITE (I02,90007) 03350100
WRITE (I02,90002) 03360100 WRITE (I02,90002) 03360100
WRITE (I02,90008) IVFAIL 03370100 WRITE (I02,90008) IVFAIL 03370100
WRITE (I02,90009) IVPASS 03380100 WRITE (I02,90009) IVPASS 03380100
WRITE (I02,90010) IVDELE 03390100 WRITE (I02,90010) IVDELE 03390100
C 03400100 C 03400100
C 03410100 C 03410100
C TERMINATE ROUTINE EXECUTION 03420100 C TERMINATE ROUTINE EXECUTION 03420100
STOP 03430100 STOP, QUIET = .TRUE. 03430100
C 03440100 C 03440100
C FORMAT STATEMENTS FOR PAGE HEADERS 03450100 C FORMAT STATEMENTS FOR PAGE HEADERS 03450100
90000 FORMAT ("1") 03460100 90000 FORMAT ("1") 03460100
90002 FORMAT (" ") 03470100 90002 FORMAT (" ") 03470100
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03480100 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03480100
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03490100 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03490100
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03500100 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03500100
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03510100 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03510100
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM101.f

Show First 20 Lines • Show All 339 Lines • ▼ Show 20 Lines99999 CONTINUE 03330101
WRITE (I02,90007) 03380101 WRITE (I02,90007) 03380101
WRITE (I02,90002) 03390101 WRITE (I02,90002) 03390101
WRITE (I02,90008) IVFAIL 03400101 WRITE (I02,90008) IVFAIL 03400101
WRITE (I02,90009) IVPASS 03410101 WRITE (I02,90009) IVPASS 03410101
WRITE (I02,90010) IVDELE 03420101 WRITE (I02,90010) IVDELE 03420101
C 03430101 C 03430101
C 03440101 C 03440101
C TERMINATE ROUTINE EXECUTION 03450101 C TERMINATE ROUTINE EXECUTION 03450101
STOP 03460101 STOP, QUIET = .TRUE. 03460101
C 03470101 C 03470101
C FORMAT STATEMENTS FOR PAGE HEADERS 03480101 C FORMAT STATEMENTS FOR PAGE HEADERS 03480101
90000 FORMAT ("1") 03490101 90000 FORMAT ("1") 03490101
90002 FORMAT (" ") 03500101 90002 FORMAT (" ") 03500101
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03510101 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03510101
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03520101 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03520101
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03530101 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03530101
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03540101 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03540101
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM102.f

Show First 20 Lines • Show All 333 Lines • ▼ Show 20 Lines99999 CONTINUE 03270102
WRITE (I02,90007) 03320102 WRITE (I02,90007) 03320102
WRITE (I02,90002) 03330102 WRITE (I02,90002) 03330102
WRITE (I02,90008) IVFAIL 03340102 WRITE (I02,90008) IVFAIL 03340102
WRITE (I02,90009) IVPASS 03350102 WRITE (I02,90009) IVPASS 03350102
WRITE (I02,90010) IVDELE 03360102 WRITE (I02,90010) IVDELE 03360102
C 03370102 C 03370102
C 03380102 C 03380102
C TERMINATE ROUTINE EXECUTION 03390102 C TERMINATE ROUTINE EXECUTION 03390102
STOP 03400102 STOP, QUIET = .TRUE. 03400102
C 03410102 C 03410102
C FORMAT STATEMENTS FOR PAGE HEADERS 03420102 C FORMAT STATEMENTS FOR PAGE HEADERS 03420102
90000 FORMAT ("1") 03430102 90000 FORMAT ("1") 03430102
90002 FORMAT (" ") 03440102 90002 FORMAT (" ") 03440102
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03450102 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03450102
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03460102 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03460102
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03470102 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03470102
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03480102 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03480102
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM104.f

Show First 20 Lines • Show All 294 Lines • ▼ Show 20 Lines99999 CONTINUE 02880104
WRITE (I02,90007) 02930104 WRITE (I02,90007) 02930104
WRITE (I02,90002) 02940104 WRITE (I02,90002) 02940104
WRITE (I02,90008) IVFAIL 02950104 WRITE (I02,90008) IVFAIL 02950104
WRITE (I02,90009) IVPASS 02960104 WRITE (I02,90009) IVPASS 02960104
WRITE (I02,90010) IVDELE 02970104 WRITE (I02,90010) IVDELE 02970104
C 02980104 C 02980104
C 02990104 C 02990104
C TERMINATE ROUTINE EXECUTION 03000104 C TERMINATE ROUTINE EXECUTION 03000104
STOP 03010104 STOP, QUIET = .TRUE. 03010104
C 03020104 C 03020104
C FORMAT STATEMENTS FOR PAGE HEADERS 03030104 C FORMAT STATEMENTS FOR PAGE HEADERS 03030104
90000 FORMAT ("1") 03040104 90000 FORMAT ("1") 03040104
90002 FORMAT (" ") 03050104 90002 FORMAT (" ") 03050104
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03060104 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03060104
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03070104 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03070104
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03080104 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03080104
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03090104 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03090104
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM105.f

Show First 20 Lines • Show All 301 Lines • ▼ Show 20 Lines99999 CONTINUE 02950105
WRITE (I02,90007) 03000105 WRITE (I02,90007) 03000105
WRITE (I02,90002) 03010105 WRITE (I02,90002) 03010105
WRITE (I02,90008) IVFAIL 03020105 WRITE (I02,90008) IVFAIL 03020105
WRITE (I02,90009) IVPASS 03030105 WRITE (I02,90009) IVPASS 03030105
WRITE (I02,90010) IVDELE 03040105 WRITE (I02,90010) IVDELE 03040105
C 03050105 C 03050105
C 03060105 C 03060105
C TERMINATE ROUTINE EXECUTION 03070105 C TERMINATE ROUTINE EXECUTION 03070105
STOP 03080105 STOP, QUIET = .TRUE. 03080105
C 03090105 C 03090105
C FORMAT STATEMENTS FOR PAGE HEADERS 03100105 C FORMAT STATEMENTS FOR PAGE HEADERS 03100105
90000 FORMAT ("1") 03110105 90000 FORMAT ("1") 03110105
90002 FORMAT (" ") 03120105 90002 FORMAT (" ") 03120105
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03130105 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03130105
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03140105 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03140105
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03150105 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03150105
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03160105 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03160105
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM106.f

Show First 20 Lines • Show All 348 Lines • ▼ Show 20 Lines99999 CONTINUE 03420106
WRITE (I02,90007) 03470106 WRITE (I02,90007) 03470106
WRITE (I02,90002) 03480106 WRITE (I02,90002) 03480106
WRITE (I02,90008) IVFAIL 03490106 WRITE (I02,90008) IVFAIL 03490106
WRITE (I02,90009) IVPASS 03500106 WRITE (I02,90009) IVPASS 03500106
WRITE (I02,90010) IVDELE 03510106 WRITE (I02,90010) IVDELE 03510106
C 03520106 C 03520106
C 03530106 C 03530106
C TERMINATE ROUTINE EXECUTION 03540106 C TERMINATE ROUTINE EXECUTION 03540106
STOP 03550106 STOP, QUIET = .TRUE. 03550106
C 03560106 C 03560106
C FORMAT STATEMENTS FOR PAGE HEADERS 03570106 C FORMAT STATEMENTS FOR PAGE HEADERS 03570106
90000 FORMAT ("1") 03580106 90000 FORMAT ("1") 03580106
90002 FORMAT (" ") 03590106 90002 FORMAT (" ") 03590106
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03600106 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03600106
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03610106 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03610106
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03620106 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03620106
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03630106 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03630106
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM107.f

Show First 20 Lines • Show All 346 Lines • ▼ Show 20 Lines99999 CONTINUE 03400107
WRITE (I02,90007) 03450107 WRITE (I02,90007) 03450107
WRITE (I02,90002) 03460107 WRITE (I02,90002) 03460107
WRITE (I02,90008) IVFAIL 03470107 WRITE (I02,90008) IVFAIL 03470107
WRITE (I02,90009) IVPASS 03480107 WRITE (I02,90009) IVPASS 03480107
WRITE (I02,90010) IVDELE 03490107 WRITE (I02,90010) IVDELE 03490107
C 03500107 C 03500107
C 03510107 C 03510107
C TERMINATE ROUTINE EXECUTION 03520107 C TERMINATE ROUTINE EXECUTION 03520107
STOP 03530107 STOP, QUIET = .TRUE. 03530107
C 03540107 C 03540107
C FORMAT STATEMENTS FOR PAGE HEADERS 03550107 C FORMAT STATEMENTS FOR PAGE HEADERS 03550107
90000 FORMAT ("1") 03560107 90000 FORMAT ("1") 03560107
90002 FORMAT (" ") 03570107 90002 FORMAT (" ") 03570107
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03580107 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03580107
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03590107 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03590107
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03600107 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03600107
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03610107 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03610107
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM108.f

Show First 20 Lines • Show All 322 Lines • ▼ Show 20 Lines99999 CONTINUE 03160108
WRITE (I02,90007) 03210108 WRITE (I02,90007) 03210108
WRITE (I02,90002) 03220108 WRITE (I02,90002) 03220108
WRITE (I02,90008) IVFAIL 03230108 WRITE (I02,90008) IVFAIL 03230108
WRITE (I02,90009) IVPASS 03240108 WRITE (I02,90009) IVPASS 03240108
WRITE (I02,90010) IVDELE 03250108 WRITE (I02,90010) IVDELE 03250108
C 03260108 C 03260108
C 03270108 C 03270108
C TERMINATE ROUTINE EXECUTION 03280108 C TERMINATE ROUTINE EXECUTION 03280108
STOP 03290108 STOP, QUIET = .TRUE. 03290108
C 03300108 C 03300108
C FORMAT STATEMENTS FOR PAGE HEADERS 03310108 C FORMAT STATEMENTS FOR PAGE HEADERS 03310108
90000 FORMAT ("1") 03320108 90000 FORMAT ("1") 03320108
90002 FORMAT (" ") 03330108 90002 FORMAT (" ") 03330108
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03340108 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 03340108
90003 FORMAT (" ",21X,"VERSION 2.1" ) 03350108 90003 FORMAT (" ",21X,"VERSION 2.1" ) 03350108
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03360108 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 03360108
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03370108 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 03370108
Show All 17 Lines

Fortran/UnitTests/fcvs21_f95/FM109.f

Show First 20 Lines • Show All 580 Lines • ▼ Show 20 Lines
C WRITE PAGE FOOTINGS 05790109 C WRITE PAGE FOOTINGS 05790109
99999 CONTINUE 05800109 99999 CONTINUE 05800109
WRITE (I02,90002) 05810109 WRITE (I02,90002) 05810109
WRITE (I02,90006) 05820109 WRITE (I02,90006) 05820109
WRITE (I02,90002) 05830109 WRITE (I02,90002) 05830109
WRITE (I02,90007) 05840109 WRITE (I02,90007) 05840109
C 05850109 C 05850109
C TERMINATE ROUTINE EXECUTION 05860109 C TERMINATE ROUTINE EXECUTION 05860109
STOP 05870109 STOP, QUIET = .TRUE. 05870109
C 05880109 C 05880109
C FORMAT STATEMENTS FOR PAGE HEADERS 05890109 C FORMAT STATEMENTS FOR PAGE HEADERS 05890109
90000 FORMAT ("1") 05900109 90000 FORMAT ("1") 05900109
90002 FORMAT (" ") 05910109 90002 FORMAT (" ") 05910109
90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05920109 90001 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 05920109
90003 FORMAT (" ",21X,"VERSION 2.1" ) 05930109 90003 FORMAT (" ",21X,"VERSION 2.1" ) 05930109
90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05940109 90004 FORMAT (" ",10X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" ) 05940109
90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05950109 90005 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL", 5X,"COMPUTED",8X,"CORRECT") 05950109
90006 FORMAT (" ",5X,"----------------------------------------------" ) 05960109 90006 FORMAT (" ",5X,"----------------------------------------------" ) 05960109
90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 05970109 90011 FORMAT (" ",18X,"SUBSET LEVEL TEST" ) 05970109
C FORMAT STATEMENTS FOR THIS ROUTINE 05980109 C FORMAT STATEMENTS FOR THIS ROUTINE 05980109
80001 FORMAT (10X,"TEST ",I5) 05990109 80001 FORMAT (10X,"TEST ",I5) 05990109
80003 FORMAT ( " ",4X,I5,7X,"DELETED") 06000109 80003 FORMAT ( " ",4X,I5,7X,"DELETED") 06000109
90007 FORMAT (" ",20X,"END OF PROGRAM FM109" ) 06010109 90007 FORMAT (" ",20X,"END OF PROGRAM FM109" ) 06010109
END 06020109 END 06020109

Fortran/UnitTests/fcvs21_f95/FM110.f

Show First 20 Lines • Show All 636 Lines • ▼ Show 20 Lines
C**** 06350110 C**** 06350110
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06360110 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06360110
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06370110 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06370110
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06380110 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06380110
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06390110 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06390110
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06400110 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06400110
CBE** ********************** BBCFMT0B **********************************06410110 CBE** ********************** BBCFMT0B **********************************06410110
C***** END OF TEST SEGMENT 350 06420110 C***** END OF TEST SEGMENT 350 06420110
STOP 06430110 STOP, QUIET = .TRUE. 06430110
END 06440110 END 06440110

Fortran/UnitTests/fcvs21_f95/FM200.f

Show First 20 Lines • Show All 482 Lines • ▼ Show 20 LinesC 04820200
WRITE (I02,90004) 04830200 WRITE (I02,90004) 04830200
WRITE (I02,90014) 04840200 WRITE (I02,90014) 04840200
WRITE (I02,90004) 04850200 WRITE (I02,90004) 04850200
WRITE (I02,90000) 04860200 WRITE (I02,90000) 04860200
WRITE (I02,90004) 04870200 WRITE (I02,90004) 04870200
WRITE (I02,90020) IVFAIL 04880200 WRITE (I02,90020) IVFAIL 04880200
WRITE (I02,90022) IVPASS 04890200 WRITE (I02,90022) IVPASS 04890200
WRITE (I02,90024) IVDELE 04900200 WRITE (I02,90024) IVDELE 04900200
STOP 04910200 STOP, QUIET = .TRUE. 04910200
90001 FORMAT (" ",24X,"FM200") 04920200 90001 FORMAT (" ",24X,"FM200") 04920200
90000 FORMAT (" ",20X,"END OF PROGRAM FM200" ) 04930200 90000 FORMAT (" ",20X,"END OF PROGRAM FM200" ) 04930200
C 04940200 C 04940200
C FORMATS FOR TEST DETAIL LINES 04950200 C FORMATS FOR TEST DETAIL LINES 04950200
C 04960200 C 04960200
80000 FORMAT (" ",4X,I5,6X,"DELETED") 04970200 80000 FORMAT (" ",4X,I5,6X,"DELETED") 04970200
80002 FORMAT (" ",4X,I5,7X,"PASS") 04980200 80002 FORMAT (" ",4X,I5,7X,"PASS") 04980200
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 04990200 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 04990200
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM201.f

Show First 20 Lines • Show All 639 Lines • ▼ Show 20 LinesC 06390201
WRITE (I02,90004) 06400201 WRITE (I02,90004) 06400201
WRITE (I02,90014) 06410201 WRITE (I02,90014) 06410201
WRITE (I02,90004) 06420201 WRITE (I02,90004) 06420201
WRITE (I02,90000) 06430201 WRITE (I02,90000) 06430201
WRITE (I02,90004) 06440201 WRITE (I02,90004) 06440201
WRITE (I02,90020) IVFAIL 06450201 WRITE (I02,90020) IVFAIL 06450201
WRITE (I02,90022) IVPASS 06460201 WRITE (I02,90022) IVPASS 06460201
WRITE (I02,90024) IVDELE 06470201 WRITE (I02,90024) IVDELE 06470201
STOP 06480201 STOP, QUIET = .TRUE. 06480201
90001 FORMAT (" ",24X,"FM201") 06490201 90001 FORMAT (" ",24X,"FM201") 06490201
90000 FORMAT (" ",20X,"END OF PROGRAM FM201" ) 06500201 90000 FORMAT (" ",20X,"END OF PROGRAM FM201" ) 06500201
C 06510201 C 06510201
C FORMATS FOR TEST DETAIL LINES 06520201 C FORMATS FOR TEST DETAIL LINES 06520201
C 06530201 C 06530201
80000 FORMAT (" ",4X,I5,6X,"DELETED") 06540201 80000 FORMAT (" ",4X,I5,6X,"DELETED") 06540201
80002 FORMAT (" ",4X,I5,7X,"PASS") 06550201 80002 FORMAT (" ",4X,I5,7X,"PASS") 06550201
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06560201 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06560201
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM202.f

Show First 20 Lines • Show All 838 Lines • ▼ Show 20 LinesC 08380202
WRITE (I02,90004) 08390202 WRITE (I02,90004) 08390202
WRITE (I02,90014) 08400202 WRITE (I02,90014) 08400202
WRITE (I02,90004) 08410202 WRITE (I02,90004) 08410202
WRITE (I02,90000) 08420202 WRITE (I02,90000) 08420202
WRITE (I02,90004) 08430202 WRITE (I02,90004) 08430202
WRITE (I02,90020) IVFAIL 08440202 WRITE (I02,90020) IVFAIL 08440202
WRITE (I02,90022) IVPASS 08450202 WRITE (I02,90022) IVPASS 08450202
WRITE (I02,90024) IVDELE 08460202 WRITE (I02,90024) IVDELE 08460202
STOP 08470202 STOP, QUIET = .TRUE. 08470202
90001 FORMAT (" ",24X,"FM202") 08480202 90001 FORMAT (" ",24X,"FM202") 08480202
90000 FORMAT (" ",20X,"END OF PROGRAM FM202" ) 08490202 90000 FORMAT (" ",20X,"END OF PROGRAM FM202" ) 08490202
C 08500202 C 08500202
C FORMATS FOR TEST DETAIL LINES 08510202 C FORMATS FOR TEST DETAIL LINES 08510202
C 08520202 C 08520202
80000 FORMAT (" ",4X,I5,6X,"DELETED") 08530202 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08530202
80002 FORMAT (" ",4X,I5,7X,"PASS") 08540202 80002 FORMAT (" ",4X,I5,7X,"PASS") 08540202
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08550202 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08550202
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM203.f

Show First 20 Lines • Show All 929 Lines • ▼ Show 20 LinesC 09290203
WRITE (I02,90004) 09300203 WRITE (I02,90004) 09300203
WRITE (I02,90014) 09310203 WRITE (I02,90014) 09310203
WRITE (I02,90004) 09320203 WRITE (I02,90004) 09320203
WRITE (I02,90000) 09330203 WRITE (I02,90000) 09330203
WRITE (I02,90004) 09340203 WRITE (I02,90004) 09340203
WRITE (I02,90020) IVFAIL 09350203 WRITE (I02,90020) IVFAIL 09350203
WRITE (I02,90022) IVPASS 09360203 WRITE (I02,90022) IVPASS 09360203
WRITE (I02,90024) IVDELE 09370203 WRITE (I02,90024) IVDELE 09370203
STOP 09380203 STOP, QUIET = .TRUE. 09380203
90001 FORMAT (" ",24X,"FM203") 09390203 90001 FORMAT (" ",24X,"FM203") 09390203
90000 FORMAT (" ",20X,"END OF PROGRAM FM203" ) 09400203 90000 FORMAT (" ",20X,"END OF PROGRAM FM203" ) 09400203
C 09410203 C 09410203
C FORMATS FOR TEST DETAIL LINES 09420203 C FORMATS FOR TEST DETAIL LINES 09420203
C 09430203 C 09430203
80000 FORMAT (" ",4X,I5,6X,"DELETED") 09440203 80000 FORMAT (" ",4X,I5,6X,"DELETED") 09440203
80002 FORMAT (" ",4X,I5,7X,"PASS") 09450203 80002 FORMAT (" ",4X,I5,7X,"PASS") 09450203
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09460203 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09460203
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM204.f

Show First 20 Lines • Show All 835 Lines • ▼ Show 20 LinesC 08350204
WRITE (I02,90004) 08360204 WRITE (I02,90004) 08360204
WRITE (I02,90014) 08370204 WRITE (I02,90014) 08370204
WRITE (I02,90004) 08380204 WRITE (I02,90004) 08380204
WRITE (I02,90000) 08390204 WRITE (I02,90000) 08390204
WRITE (I02,90004) 08400204 WRITE (I02,90004) 08400204
WRITE (I02,90020) IVFAIL 08410204 WRITE (I02,90020) IVFAIL 08410204
WRITE (I02,90022) IVPASS 08420204 WRITE (I02,90022) IVPASS 08420204
WRITE (I02,90024) IVDELE 08430204 WRITE (I02,90024) IVDELE 08430204
STOP 08440204 STOP, QUIET = .TRUE. 08440204
90001 FORMAT (" ",24X,"FM204") 08450204 90001 FORMAT (" ",24X,"FM204") 08450204
90000 FORMAT (" ",20X,"END OF PROGRAM FM204" ) 08460204 90000 FORMAT (" ",20X,"END OF PROGRAM FM204" ) 08460204
C 08470204 C 08470204
C FORMATS FOR TEST DETAIL LINES 08480204 C FORMATS FOR TEST DETAIL LINES 08480204
C 08490204 C 08490204
80000 FORMAT (" ",4X,I5,6X,"DELETED") 08500204 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08500204
80002 FORMAT (" ",4X,I5,7X,"PASS") 08510204 80002 FORMAT (" ",4X,I5,7X,"PASS") 08510204
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08520204 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08520204
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM205.f

Show First 20 Lines • Show All 900 Lines • ▼ Show 20 LinesC 09000205
WRITE (I02,90004) 09010205 WRITE (I02,90004) 09010205
WRITE (I02,90014) 09020205 WRITE (I02,90014) 09020205
WRITE (I02,90004) 09030205 WRITE (I02,90004) 09030205
WRITE (I02,90000) 09040205 WRITE (I02,90000) 09040205
WRITE (I02,90004) 09050205 WRITE (I02,90004) 09050205
WRITE (I02,90020) IVFAIL 09060205 WRITE (I02,90020) IVFAIL 09060205
WRITE (I02,90022) IVPASS 09070205 WRITE (I02,90022) IVPASS 09070205
WRITE (I02,90024) IVDELE 09080205 WRITE (I02,90024) IVDELE 09080205
STOP 09090205 STOP, QUIET = .TRUE. 09090205
90001 FORMAT (" ",24X,"FM205") 09100205 90001 FORMAT (" ",24X,"FM205") 09100205
90000 FORMAT (" ",20X,"END OF PROGRAM FM205" ) 09110205 90000 FORMAT (" ",20X,"END OF PROGRAM FM205" ) 09110205
C 09120205 C 09120205
C FORMATS FOR TEST DETAIL LINES 09130205 C FORMATS FOR TEST DETAIL LINES 09130205
C 09140205 C 09140205
80000 FORMAT (" ",4X,I5,6X,"DELETED") 09150205 80000 FORMAT (" ",4X,I5,6X,"DELETED") 09150205
80002 FORMAT (" ",4X,I5,7X,"PASS") 09160205 80002 FORMAT (" ",4X,I5,7X,"PASS") 09160205
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09170205 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09170205
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM251.f

Show First 20 Lines • Show All 486 Lines • ▼ Show 20 LinesC 04860251
WRITE (I02,90004) 04870251 WRITE (I02,90004) 04870251
WRITE (I02,90014) 04880251 WRITE (I02,90014) 04880251
WRITE (I02,90004) 04890251 WRITE (I02,90004) 04890251
WRITE (I02,90000) 04900251 WRITE (I02,90000) 04900251
WRITE (I02,90004) 04910251 WRITE (I02,90004) 04910251
WRITE (I02,90020) IVFAIL 04920251 WRITE (I02,90020) IVFAIL 04920251
WRITE (I02,90022) IVPASS 04930251 WRITE (I02,90022) IVPASS 04930251
WRITE (I02,90024) IVDELE 04940251 WRITE (I02,90024) IVDELE 04940251
STOP 04950251 STOP, QUIET = .TRUE. 04950251
90001 FORMAT (" ",24X,"FM251") 04960251 90001 FORMAT (" ",24X,"FM251") 04960251
90000 FORMAT (" ",20X,"END OF PROGRAM FM251" ) 04970251 90000 FORMAT (" ",20X,"END OF PROGRAM FM251" ) 04970251
C 04980251 C 04980251
C FORMATS FOR TEST DETAIL LINES 04990251 C FORMATS FOR TEST DETAIL LINES 04990251
C 05000251 C 05000251
80000 FORMAT (" ",4X,I5,6X,"DELETED") 05010251 80000 FORMAT (" ",4X,I5,6X,"DELETED") 05010251
80002 FORMAT (" ",4X,I5,7X,"PASS") 05020251 80002 FORMAT (" ",4X,I5,7X,"PASS") 05020251
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 05030251 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 05030251
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM254.f

Show First 20 Lines • Show All 612 Lines • ▼ Show 20 LinesC 06120254
WRITE (I02,90004) 06130254 WRITE (I02,90004) 06130254
WRITE (I02,90014) 06140254 WRITE (I02,90014) 06140254
WRITE (I02,90004) 06150254 WRITE (I02,90004) 06150254
WRITE (I02,90000) 06160254 WRITE (I02,90000) 06160254
WRITE (I02,90004) 06170254 WRITE (I02,90004) 06170254
WRITE (I02,90020) IVFAIL 06180254 WRITE (I02,90020) IVFAIL 06180254
WRITE (I02,90022) IVPASS 06190254 WRITE (I02,90022) IVPASS 06190254
WRITE (I02,90024) IVDELE 06200254 WRITE (I02,90024) IVDELE 06200254
STOP 06210254 STOP, QUIET = .TRUE. 06210254
90001 FORMAT (" ",24X,"FM254") 06220254 90001 FORMAT (" ",24X,"FM254") 06220254
90000 FORMAT (" ",20X,"END OF PROGRAM FM254" ) 06230254 90000 FORMAT (" ",20X,"END OF PROGRAM FM254" ) 06230254
C 06240254 C 06240254
C FORMATS FOR TEST DETAIL LINES 06250254 C FORMATS FOR TEST DETAIL LINES 06250254
C 06260254 C 06260254
80000 FORMAT (" ",4X,I5,6X,"DELETED") 06270254 80000 FORMAT (" ",4X,I5,6X,"DELETED") 06270254
80002 FORMAT (" ",4X,I5,7X,"PASS") 06280254 80002 FORMAT (" ",4X,I5,7X,"PASS") 06280254
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06290254 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06290254
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM256.f

Show First 20 Lines • Show All 793 Lines • ▼ Show 20 LinesC 07930256
WRITE (I02,90004) 07940256 WRITE (I02,90004) 07940256
WRITE (I02,90014) 07950256 WRITE (I02,90014) 07950256
WRITE (I02,90004) 07960256 WRITE (I02,90004) 07960256
WRITE (I02,90000) 07970256 WRITE (I02,90000) 07970256
WRITE (I02,90004) 07980256 WRITE (I02,90004) 07980256
WRITE (I02,90020) IVFAIL 07990256 WRITE (I02,90020) IVFAIL 07990256
WRITE (I02,90022) IVPASS 08000256 WRITE (I02,90022) IVPASS 08000256
WRITE (I02,90024) IVDELE 08010256 WRITE (I02,90024) IVDELE 08010256
STOP 08020256 STOP, QUIET = .TRUE. 08020256
90001 FORMAT (" ",24X,"FM256") 08030256 90001 FORMAT (" ",24X,"FM256") 08030256
90000 FORMAT (" ",20X,"END OF PROGRAM FM256" ) 08040256 90000 FORMAT (" ",20X,"END OF PROGRAM FM256" ) 08040256
C 08050256 C 08050256
C FORMATS FOR TEST DETAIL LINES 08060256 C FORMATS FOR TEST DETAIL LINES 08060256
C 08070256 C 08070256
80000 FORMAT (" ",4X,I5,6X,"DELETED") 08080256 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08080256
80002 FORMAT (" ",4X,I5,7X,"PASS") 08090256 80002 FORMAT (" ",4X,I5,7X,"PASS") 08090256
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08100256 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08100256
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM258.f

Show First 20 Lines • Show All 311 Lines • ▼ Show 20 Lines
CBE** ********************** BBCFMT0B **********************************03100258 CBE** ********************** BBCFMT0B **********************************03100258
30026 FORMAT ("1", 26X,I1) 03110258 30026 FORMAT ("1", 26X,I1) 03110258
30018 FORMAT(" ",26X,I10) 03120258 30018 FORMAT(" ",26X,I10) 03120258
30025 FORMAT(/49X,"TESTS 1-3 (2 COMPUTED RESULTS)" , 03130258 30025 FORMAT(/49X,"TESTS 1-3 (2 COMPUTED RESULTS)" , 03130258
1 /49X,"TESTS 4-7 (3 COMPUTED RESULTS)" , 03140258 1 /49X,"TESTS 4-7 (3 COMPUTED RESULTS)" , 03140258
2 /49X,"TEST 8 (4 COMPUTED RESULTS)" , 03150258 2 /49X,"TEST 8 (4 COMPUTED RESULTS)" , 03150258
3 /49X,"ALL ANSWERS SHOULD BE ZERO" ) 03160258 3 /49X,"ALL ANSWERS SHOULD BE ZERO" ) 03160258
C***** END OF TEST SEGMENT 300 03170258 C***** END OF TEST SEGMENT 300 03170258
STOP 03180258 STOP, QUIET = .TRUE. 03180258
END 03190258 END 03190258

Fortran/UnitTests/fcvs21_f95/FM261.f

Show First 20 Lines • Show All 208 Lines • ▼ Show 20 Lines
C**** 02070261 C**** 02070261
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02080261 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02080261
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02090261 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02090261
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02100261 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02100261
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02110261 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02110261
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02120261 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02120261
CBE** ********************** BBCFMT0B **********************************02130261 CBE** ********************** BBCFMT0B **********************************02130261
C***** END OF TEST SEGMENT 303 02140261 C***** END OF TEST SEGMENT 303 02140261
STOP 02150261 STOP, QUIET = .TRUE. 02150261
END 02160261 END 02160261
C***********************************************************************00010262 C***********************************************************************00010262
C***** FORTRAN 77 00020262 C***** FORTRAN 77 00020262
C***** FM262 00030262 C***** FM262 00030262
C***** SN262 SN262 - (750) 00040262 C***** SN262 SN262 - (750) 00040262
C***** SUBROUTINE CALLED BY FM261 00050262 C***** SUBROUTINE CALLED BY FM261 00050262
C***********************************************************************00060262 C***********************************************************************00060262
▲ Show 20 Lines • Show All 41 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM300.f

Show First 20 Lines • Show All 658 Lines • ▼ Show 20 LinesC 06580300
WRITE (I02,90004) 06590300 WRITE (I02,90004) 06590300
WRITE (I02,90014) 06600300 WRITE (I02,90014) 06600300
WRITE (I02,90004) 06610300 WRITE (I02,90004) 06610300
WRITE (I02,90000) 06620300 WRITE (I02,90000) 06620300
WRITE (I02,90004) 06630300 WRITE (I02,90004) 06630300
WRITE (I02,90020) IVFAIL 06640300 WRITE (I02,90020) IVFAIL 06640300
WRITE (I02,90022) IVPASS 06650300 WRITE (I02,90022) IVPASS 06650300
WRITE (I02,90024) IVDELE 06660300 WRITE (I02,90024) IVDELE 06660300
STOP 06670300 STOP, QUIET = .TRUE. 06670300
90001 FORMAT (" ",24X,"FM300") 06680300 90001 FORMAT (" ",24X,"FM300") 06680300
90000 FORMAT (" ",20X,"END OF PROGRAM FM300" ) 06690300 90000 FORMAT (" ",20X,"END OF PROGRAM FM300" ) 06690300
C 06700300 C 06700300
C FORMATS FOR TEST DETAIL LINES 06710300 C FORMATS FOR TEST DETAIL LINES 06710300
C 06720300 C 06720300
80000 FORMAT (" ",4X,I5,6X,"DELETED") 06730300 80000 FORMAT (" ",4X,I5,6X,"DELETED") 06730300
80002 FORMAT (" ",4X,I5,7X,"PASS") 06740300 80002 FORMAT (" ",4X,I5,7X,"PASS") 06740300
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06750300 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06750300
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM301.f

Show First 20 Lines • Show All 667 Lines • ▼ Show 20 LinesC 06670301
WRITE (I02,90004) 06680301 WRITE (I02,90004) 06680301
WRITE (I02,90014) 06690301 WRITE (I02,90014) 06690301
WRITE (I02,90004) 06700301 WRITE (I02,90004) 06700301
WRITE (I02,90000) 06710301 WRITE (I02,90000) 06710301
WRITE (I02,90004) 06720301 WRITE (I02,90004) 06720301
WRITE (I02,90020) IVFAIL 06730301 WRITE (I02,90020) IVFAIL 06730301
WRITE (I02,90022) IVPASS 06740301 WRITE (I02,90022) IVPASS 06740301
WRITE (I02,90024) IVDELE 06750301 WRITE (I02,90024) IVDELE 06750301
STOP 06760301 STOP, QUIET = .TRUE. 06760301
90001 FORMAT (" ",24X,"FM301") 06770301 90001 FORMAT (" ",24X,"FM301") 06770301
90000 FORMAT (" ",20X,"END OF PROGRAM FM301" ) 06780301 90000 FORMAT (" ",20X,"END OF PROGRAM FM301" ) 06780301
C 06790301 C 06790301
C FORMATS FOR TEST DETAIL LINES 06800301 C FORMATS FOR TEST DETAIL LINES 06800301
C 06810301 C 06810301
80000 FORMAT (" ",4X,I5,6X,"DELETED") 06820301 80000 FORMAT (" ",4X,I5,6X,"DELETED") 06820301
80002 FORMAT (" ",4X,I5,7X,"PASS") 06830301 80002 FORMAT (" ",4X,I5,7X,"PASS") 06830301
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06840301 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06840301
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM302.f

Show First 20 Lines • Show All 632 Lines • ▼ Show 20 LinesC 06320302
WRITE (I02,90004) 06330302 WRITE (I02,90004) 06330302
WRITE (I02,90014) 06340302 WRITE (I02,90014) 06340302
WRITE (I02,90004) 06350302 WRITE (I02,90004) 06350302
WRITE (I02,90000) 06360302 WRITE (I02,90000) 06360302
WRITE (I02,90004) 06370302 WRITE (I02,90004) 06370302
WRITE (I02,90020) IVFAIL 06380302 WRITE (I02,90020) IVFAIL 06380302
WRITE (I02,90022) IVPASS 06390302 WRITE (I02,90022) IVPASS 06390302
WRITE (I02,90024) IVDELE 06400302 WRITE (I02,90024) IVDELE 06400302
STOP 06410302 STOP, QUIET = .TRUE. 06410302
90001 FORMAT (" ",24X,"FM302") 06420302 90001 FORMAT (" ",24X,"FM302") 06420302
90000 FORMAT (" ",20X,"END OF PROGRAM FM302" ) 06430302 90000 FORMAT (" ",20X,"END OF PROGRAM FM302" ) 06430302
C 06440302 C 06440302
C FORMATS FOR TEST DETAIL LINES 06450302 C FORMATS FOR TEST DETAIL LINES 06450302
C 06460302 C 06460302
80000 FORMAT (" ",4X,I5,6X,"DELETED") 06470302 80000 FORMAT (" ",4X,I5,6X,"DELETED") 06470302
80002 FORMAT (" ",4X,I5,7X,"PASS") 06480302 80002 FORMAT (" ",4X,I5,7X,"PASS") 06480302
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06490302 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 06490302
▲ Show 20 Lines • Show All 161 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM306.f

Show First 20 Lines • Show All 440 Lines • ▼ Show 20 LinesC 04400306
WRITE (I02,90004) 04410306 WRITE (I02,90004) 04410306
WRITE (I02,90014) 04420306 WRITE (I02,90014) 04420306
WRITE (I02,90004) 04430306 WRITE (I02,90004) 04430306
WRITE (I02,90000) 04440306 WRITE (I02,90000) 04440306
WRITE (I02,90004) 04450306 WRITE (I02,90004) 04450306
WRITE (I02,90020) IVFAIL 04460306 WRITE (I02,90020) IVFAIL 04460306
WRITE (I02,90022) IVPASS 04470306 WRITE (I02,90022) IVPASS 04470306
WRITE (I02,90024) IVDELE 04480306 WRITE (I02,90024) IVDELE 04480306
STOP 04490306 STOP, QUIET = .TRUE. 04490306
90001 FORMAT (" ",24X,"FM306") 04500306 90001 FORMAT (" ",24X,"FM306") 04500306
90000 FORMAT (" ",20X,"END OF PROGRAM FM306" ) 04510306 90000 FORMAT (" ",20X,"END OF PROGRAM FM306" ) 04510306
C 04520306 C 04520306
C FORMATS FOR TEST DETAIL LINES 04530306 C FORMATS FOR TEST DETAIL LINES 04530306
C 04540306 C 04540306
80000 FORMAT (" ",4X,I5,6X,"DELETED") 04550306 80000 FORMAT (" ",4X,I5,6X,"DELETED") 04550306
80002 FORMAT (" ",4X,I5,7X,"PASS") 04560306 80002 FORMAT (" ",4X,I5,7X,"PASS") 04560306
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 04570306 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 04570306
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM307.f

Show First 20 Lines • Show All 860 Lines • ▼ Show 20 LinesC 08600307
WRITE (I02,90004) 08610307 WRITE (I02,90004) 08610307
WRITE (I02,90014) 08620307 WRITE (I02,90014) 08620307
WRITE (I02,90004) 08630307 WRITE (I02,90004) 08630307
WRITE (I02,90000) 08640307 WRITE (I02,90000) 08640307
WRITE (I02,90004) 08650307 WRITE (I02,90004) 08650307
WRITE (I02,90020) IVFAIL 08660307 WRITE (I02,90020) IVFAIL 08660307
WRITE (I02,90022) IVPASS 08670307 WRITE (I02,90022) IVPASS 08670307
WRITE (I02,90024) IVDELE 08680307 WRITE (I02,90024) IVDELE 08680307
STOP 08690307 STOP, QUIET = .TRUE. 08690307
90001 FORMAT (" ",24X,"FM307") 08700307 90001 FORMAT (" ",24X,"FM307") 08700307
90000 FORMAT (" ",20X,"END OF PROGRAM FM307" ) 08710307 90000 FORMAT (" ",20X,"END OF PROGRAM FM307" ) 08710307
C 08720307 C 08720307
C FORMATS FOR TEST DETAIL LINES 08730307 C FORMATS FOR TEST DETAIL LINES 08730307
C 08740307 C 08740307
80000 FORMAT (" ",4X,I5,6X,"DELETED") 08750307 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08750307
80002 FORMAT (" ",4X,I5,7X,"PASS") 08760307 80002 FORMAT (" ",4X,I5,7X,"PASS") 08760307
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08770307 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08770307
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM308.f

Show First 20 Lines • Show All 889 Lines • ▼ Show 20 LinesC 08890308
WRITE (I02,90004) 08900308 WRITE (I02,90004) 08900308
WRITE (I02,90014) 08910308 WRITE (I02,90014) 08910308
WRITE (I02,90004) 08920308 WRITE (I02,90004) 08920308
WRITE (I02,90000) 08930308 WRITE (I02,90000) 08930308
WRITE (I02,90004) 08940308 WRITE (I02,90004) 08940308
WRITE (I02,90020) IVFAIL 08950308 WRITE (I02,90020) IVFAIL 08950308
WRITE (I02,90022) IVPASS 08960308 WRITE (I02,90022) IVPASS 08960308
WRITE (I02,90024) IVDELE 08970308 WRITE (I02,90024) IVDELE 08970308
STOP 08980308 STOP, QUIET = .TRUE. 08980308
90001 FORMAT (" ",24X,"FM308") 08990308 90001 FORMAT (" ",24X,"FM308") 08990308
90000 FORMAT (" ",20X,"END OF PROGRAM FM308" ) 09000308 90000 FORMAT (" ",20X,"END OF PROGRAM FM308" ) 09000308
C 09010308 C 09010308
C FORMATS FOR TEST DETAIL LINES 09020308 C FORMATS FOR TEST DETAIL LINES 09020308
C 09030308 C 09030308
80000 FORMAT (" ",4X,I5,6X,"DELETED") 09040308 80000 FORMAT (" ",4X,I5,6X,"DELETED") 09040308
80002 FORMAT (" ",4X,I5,7X,"PASS") 09050308 80002 FORMAT (" ",4X,I5,7X,"PASS") 09050308
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09060308 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09060308
Show All 35 Lines

Fortran/UnitTests/fcvs21_f95/FM311.f

Show First 20 Lines • Show All 1,062 Lines • ▼ Show 20 LinesC 10620311
WRITE (I02,90004) 10630311 WRITE (I02,90004) 10630311
WRITE (I02,90014) 10640311 WRITE (I02,90014) 10640311
WRITE (I02,90004) 10650311 WRITE (I02,90004) 10650311
WRITE (I02,90000) 10660311 WRITE (I02,90000) 10660311
WRITE (I02,90004) 10670311 WRITE (I02,90004) 10670311
WRITE (I02,90020) IVFAIL 10680311 WRITE (I02,90020) IVFAIL 10680311
WRITE (I02,90022) IVPASS 10690311 WRITE (I02,90022) IVPASS 10690311
WRITE (I02,90024) IVDELE 10700311 WRITE (I02,90024) IVDELE 10700311
STOP 10710311 STOP, QUIET = .TRUE. 10710311
90001 FORMAT (" ",24X,"FM311") 10720311 90001 FORMAT (" ",24X,"FM311") 10720311
90000 FORMAT (" ",20X,"END OF PROGRAM FM311" ) 10730311 90000 FORMAT (" ",20X,"END OF PROGRAM FM311" ) 10730311
C 10740311 C 10740311
C FORMATS FOR TEST DETAIL LINES 10750311 C FORMATS FOR TEST DETAIL LINES 10750311
C 10760311 C 10760311
80000 FORMAT (" ",4X,I5,6X,"DELETED") 10770311 80000 FORMAT (" ",4X,I5,6X,"DELETED") 10770311
80002 FORMAT (" ",4X,I5,7X,"PASS") 10780311 80002 FORMAT (" ",4X,I5,7X,"PASS") 10780311
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 10790311 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 10790311
▲ Show 20 Lines • Show All 75 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM317.f

Show First 20 Lines • Show All 925 Lines • ▼ Show 20 LinesC 09250317
WRITE (I02,90004) 09260317 WRITE (I02,90004) 09260317
WRITE (I02,90014) 09270317 WRITE (I02,90014) 09270317
WRITE (I02,90004) 09280317 WRITE (I02,90004) 09280317
WRITE (I02,90000) 09290317 WRITE (I02,90000) 09290317
WRITE (I02,90004) 09300317 WRITE (I02,90004) 09300317
WRITE (I02,90020) IVFAIL 09310317 WRITE (I02,90020) IVFAIL 09310317
WRITE (I02,90022) IVPASS 09320317 WRITE (I02,90022) IVPASS 09320317
WRITE (I02,90024) IVDELE 09330317 WRITE (I02,90024) IVDELE 09330317
STOP 09340317 STOP, QUIET = .TRUE. 09340317
90001 FORMAT (" ",24X,"FM317") 09350317 90001 FORMAT (" ",24X,"FM317") 09350317
90000 FORMAT (" ",20X,"END OF PROGRAM FM317" ) 09360317 90000 FORMAT (" ",20X,"END OF PROGRAM FM317" ) 09360317
C 09370317 C 09370317
C FORMATS FOR TEST DETAIL LINES 09380317 C FORMATS FOR TEST DETAIL LINES 09380317
C 09390317 C 09390317
80000 FORMAT (" ",4X,I5,6X,"DELETED") 09400317 80000 FORMAT (" ",4X,I5,6X,"DELETED") 09400317
80002 FORMAT (" ",4X,I5,7X,"PASS") 09410317 80002 FORMAT (" ",4X,I5,7X,"PASS") 09410317
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09420317 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 09420317
▲ Show 20 Lines • Show All 133 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM328.f

Show First 20 Lines • Show All 746 Lines • ▼ Show 20 LinesC 07460328
WRITE (I02,90004) 07470328 WRITE (I02,90004) 07470328
WRITE (I02,90014) 07480328 WRITE (I02,90014) 07480328
WRITE (I02,90004) 07490328 WRITE (I02,90004) 07490328
WRITE (I02,90000) 07500328 WRITE (I02,90000) 07500328
WRITE (I02,90004) 07510328 WRITE (I02,90004) 07510328
WRITE (I02,90020) IVFAIL 07520328 WRITE (I02,90020) IVFAIL 07520328
WRITE (I02,90022) IVPASS 07530328 WRITE (I02,90022) IVPASS 07530328
WRITE (I02,90024) IVDELE 07540328 WRITE (I02,90024) IVDELE 07540328
STOP 07550328 STOP, QUIET = .TRUE. 07550328
90001 FORMAT (" ",24X,"FM328") 07560328 90001 FORMAT (" ",24X,"FM328") 07560328
90000 FORMAT (" ",20X,"END OF PROGRAM FM328" ) 07570328 90000 FORMAT (" ",20X,"END OF PROGRAM FM328" ) 07570328
C 07580328 C 07580328
C FORMATS FOR TEST DETAIL LINES 07590328 C FORMATS FOR TEST DETAIL LINES 07590328
C 07600328 C 07600328
80000 FORMAT (" ",4X,I5,6X,"DELETED") 07610328 80000 FORMAT (" ",4X,I5,6X,"DELETED") 07610328
80002 FORMAT (" ",4X,I5,7X,"PASS") 07620328 80002 FORMAT (" ",4X,I5,7X,"PASS") 07620328
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 07630328 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 07630328
▲ Show 20 Lines • Show All 116 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM351.f

Show First 20 Lines • Show All 864 Lines • ▼ Show 20 LinesC 08640351
WRITE (I02,90004) 08650351 WRITE (I02,90004) 08650351
WRITE (I02,90014) 08660351 WRITE (I02,90014) 08660351
WRITE (I02,90004) 08670351 WRITE (I02,90004) 08670351
WRITE (I02,90000) 08680351 WRITE (I02,90000) 08680351
WRITE (I02,90004) 08690351 WRITE (I02,90004) 08690351
WRITE (I02,90020) IVFAIL 08700351 WRITE (I02,90020) IVFAIL 08700351
WRITE (I02,90022) IVPASS 08710351 WRITE (I02,90022) IVPASS 08710351
WRITE (I02,90024) IVDELE 08720351 WRITE (I02,90024) IVDELE 08720351
STOP 08730351 STOP, QUIET = .TRUE. 08730351
90001 FORMAT (" ",24X,"FM351") 08740351 90001 FORMAT (" ",24X,"FM351") 08740351
90000 FORMAT (" ",20X,"END OF PROGRAM FM351" ) 08750351 90000 FORMAT (" ",20X,"END OF PROGRAM FM351" ) 08750351
C 08760351 C 08760351
C FORMATS FOR TEST DETAIL LINES 08770351 C FORMATS FOR TEST DETAIL LINES 08770351
C 08780351 C 08780351
80000 FORMAT (" ",4X,I5,6X,"DELETED") 08790351 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08790351
80002 FORMAT (" ",4X,I5,7X,"PASS") 08800351 80002 FORMAT (" ",4X,I5,7X,"PASS") 08800351
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08810351 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08810351
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM352.f

Show First 20 Lines • Show All 846 Lines • ▼ Show 20 LinesC 08460352
WRITE (I02,90004) 08470352 WRITE (I02,90004) 08470352
WRITE (I02,90014) 08480352 WRITE (I02,90014) 08480352
WRITE (I02,90004) 08490352 WRITE (I02,90004) 08490352
WRITE (I02,90000) 08500352 WRITE (I02,90000) 08500352
WRITE (I02,90004) 08510352 WRITE (I02,90004) 08510352
WRITE (I02,90020) IVFAIL 08520352 WRITE (I02,90020) IVFAIL 08520352
WRITE (I02,90022) IVPASS 08530352 WRITE (I02,90022) IVPASS 08530352
WRITE (I02,90024) IVDELE 08540352 WRITE (I02,90024) IVDELE 08540352
STOP 08550352 STOP, QUIET = .TRUE. 08550352
90001 FORMAT (" ",24X,"FM352") 08560352 90001 FORMAT (" ",24X,"FM352") 08560352
90000 FORMAT (" ",20X,"END OF PROGRAM FM352" ) 08570352 90000 FORMAT (" ",20X,"END OF PROGRAM FM352" ) 08570352
C 08580352 C 08580352
C FORMATS FOR TEST DETAIL LINES 08590352 C FORMATS FOR TEST DETAIL LINES 08590352
C 08600352 C 08600352
80000 FORMAT (" ",4X,I5,6X,"DELETED") 08610352 80000 FORMAT (" ",4X,I5,6X,"DELETED") 08610352
80002 FORMAT (" ",4X,I5,7X,"PASS") 08620352 80002 FORMAT (" ",4X,I5,7X,"PASS") 08620352
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08630352 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 08630352
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM353.f

Show First 20 Lines • Show All 305 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03040353 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03040353
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03050353 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03050353
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03060353 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03060353
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03070353 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03070353
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03080353 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03080353
CBE** ********************** BBCFMT0B **********************************03090353 CBE** ********************** BBCFMT0B **********************************03090353
C***** 03100353 C***** 03100353
C***** END OF TEST SEGMENT 150 03110353 C***** END OF TEST SEGMENT 150 03110353
STOP 03120353 STOP, QUIET = .TRUE. 03120353
END 03130353 END 03130353
03140353 03140353

Fortran/UnitTests/fcvs21_f95/FM354.f

Show First 20 Lines • Show All 371 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03700354 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03700354
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03710354 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03710354
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03720354 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03720354
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03730354 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03730354
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03740354 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03740354
CBE** ********************** BBCFMT0B **********************************03750354 CBE** ********************** BBCFMT0B **********************************03750354
C***** 03760354 C***** 03760354
C***** END OF TEST SEGMENT 152 03770354 C***** END OF TEST SEGMENT 152 03770354
STOP 03780354 STOP, QUIET = .TRUE. 03780354
END 03790354 END 03790354
03800354 03800354

Fortran/UnitTests/fcvs21_f95/FM355.f

Show First 20 Lines • Show All 811 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08100355 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08100355
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08110355 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08110355
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08120355 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08120355
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08130355 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08130355
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08140355 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08140355
CBE** ********************** BBCFMT0B **********************************08150355 CBE** ********************** BBCFMT0B **********************************08150355
C***** 08160355 C***** 08160355
C***** END OF TEST SEGMENT 154 08170355 C***** END OF TEST SEGMENT 154 08170355
STOP 08180355 STOP, QUIET=.TRUE. 08180355
END 08190355 END 08190355
08200355 08200355

Fortran/UnitTests/fcvs21_f95/FM356.f

Show First 20 Lines • Show All 311 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03100356 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03100356
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03110356 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03110356
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03120356 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03120356
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03130356 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03130356
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03140356 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03140356
CBE** ********************** BBCFMT0B **********************************03150356 CBE** ********************** BBCFMT0B **********************************03150356
C***** 03160356 C***** 03160356
C***** END OF TEST SEGMENT 156 03170356 C***** END OF TEST SEGMENT 156 03170356
STOP 03180356 STOP, QUIET = .TRUE. 03180356
END 03190356 END 03190356
03200356 03200356

Fortran/UnitTests/fcvs21_f95/FM357.f

Show First 20 Lines • Show All 486 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04850357 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04850357
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04860357 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04860357
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04870357 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04870357
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04880357 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04880357
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04890357 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04890357
CBE** ********************** BBCFMT0B **********************************04900357 CBE** ********************** BBCFMT0B **********************************04900357
C***** 04910357 C***** 04910357
C***** END OF TEST SEGMENT 159 04920357 C***** END OF TEST SEGMENT 159 04920357
STOP 04930357 STOP, QUIET = .TRUE. 04930357
END 04940357 END 04940357
04950357 04950357

Fortran/UnitTests/fcvs21_f95/FM359.f

Show First 20 Lines • Show All 481 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04800359 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04800359
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04810359 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04810359
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04820359 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04820359
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04830359 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04830359
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04840359 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04840359
CBE** ********************** BBCFMT0B **********************************04850359 CBE** ********************** BBCFMT0B **********************************04850359
C***** 04860359 C***** 04860359
C***** END OF TEST SEGMENT 161 04870359 C***** END OF TEST SEGMENT 161 04870359
STOP 04880359 STOP, QUIET = .TRUE. 04880359
END 04890359 END 04890359
04900359 04900359

Fortran/UnitTests/fcvs21_f95/FM360.f

Show First 20 Lines • Show All 376 Lines • ▼ Show 20 Lines
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03750360 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03750360
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03760360 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03760360
CBE** ********************** BBCFMT0B **********************************03770360 CBE** ********************** BBCFMT0B **********************************03770360
C***** 03780360 C***** 03780360
16303 FORMAT(2X, F7.2) 03790360 16303 FORMAT(2X, F7.2) 03790360
16305 FORMAT(3X, I5) 03800360 16305 FORMAT(3X, I5) 03800360
C***** 03810360 C***** 03810360
C***** END OF TEST SEGMENT 163 03820360 C***** END OF TEST SEGMENT 163 03820360
STOP 03830360 STOP, QUIET = .TRUE. 03830360
END 03840360 END 03840360
03850360 03850360

Fortran/UnitTests/fcvs21_f95/FM361.f

Show First 20 Lines • Show All 861 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08600361 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08600361
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08610361 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08610361
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08620361 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08620361
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08630361 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08630361
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08640361 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08640361
CBE** ********************** BBCFMT0B **********************************08650361 CBE** ********************** BBCFMT0B **********************************08650361
C***** 08660361 C***** 08660361
C***** END OF TEST SEGMENT 165 08670361 C***** END OF TEST SEGMENT 165 08670361
STOP 08680361 STOP, QUIET = .TRUE. 08680361
END 08690361 END 08690361
08700361 08700361

Fortran/UnitTests/fcvs21_f95/FM362.f

Show First 20 Lines • Show All 848 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08470362 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08470362
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08480362 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08480362
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08490362 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08490362
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08500362 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08500362
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08510362 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08510362
CBE** ********************** BBCFMT0B **********************************08520362 CBE** ********************** BBCFMT0B **********************************08520362
C***** 08530362 C***** 08530362
C***** END OF TEST SEGMENT 167 08540362 C***** END OF TEST SEGMENT 167 08540362
STOP 08550362 STOP, QUIET = .TRUE. 08550362
END 08560362 END 08560362
08570362 08570362

Fortran/UnitTests/fcvs21_f95/FM363.f

Show First 20 Lines • Show All 376 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03750363 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03750363
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03760363 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03760363
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03770363 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03770363
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03780363 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03780363
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03790363 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03790363
CBE** ********************** BBCFMT0B **********************************03800363 CBE** ********************** BBCFMT0B **********************************03800363
C***** 03810363 C***** 03810363
C***** END OF TEST SEGMENT 171 03820363 C***** END OF TEST SEGMENT 171 03820363
STOP 03830363 STOP, QUIET = .TRUE. 03830363
END 03840363 END 03840363
03850363 03850363

Fortran/UnitTests/fcvs21_f95/FM364.f

Show First 20 Lines • Show All 407 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04060364 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04060364
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04070364 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04070364
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04080364 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04080364
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04090364 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04090364
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04100364 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04100364
CBE** ********************** BBCFMT0B **********************************04110364 CBE** ********************** BBCFMT0B **********************************04110364
C***** 04120364 C***** 04120364
C***** END OF TEST SEGMENT 172 04130364 C***** END OF TEST SEGMENT 172 04130364
STOP 04140364 STOP, QUIET = .TRUE. 04140364
END 04150364 END 04150364

Fortran/UnitTests/fcvs21_f95/FM368.f

Show First 20 Lines • Show All 337 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03360368 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03360368
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03370368 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03370368
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03380368 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03380368
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03390368 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03390368
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03400368 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03400368
CBE** ********************** BBCFMT0B **********************************03410368 CBE** ********************** BBCFMT0B **********************************03410368
C***** 03420368 C***** 03420368
C***** END OF TEST SEGMENT 175 03430368 C***** END OF TEST SEGMENT 175 03430368
STOP 03440368 STOP, QUIET = .TRUE. 03440368
END 03450368 END 03450368
03460368 03460368

Fortran/UnitTests/fcvs21_f95/FM369.f

Show First 20 Lines • Show All 425 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04240369 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04240369
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04250369 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04250369
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04260369 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04260369
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04270369 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04270369
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04280369 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04280369
CBE** ********************** BBCFMT0B **********************************04290369 CBE** ********************** BBCFMT0B **********************************04290369
C***** 04300369 C***** 04300369
C***** END OF TEST SEGMENT 178 04310369 C***** END OF TEST SEGMENT 178 04310369
STOP 04320369 STOP, QUIET = .TRUE. 04320369
END 04330369 END 04330369

Fortran/UnitTests/fcvs21_f95/FM370.f

Show First 20 Lines • Show All 378 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03770370 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03770370
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03780370 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03780370
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03790370 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03790370
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03800370 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03800370
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03810370 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03810370
CBE** ********************** BBCFMT0B **********************************03820370 CBE** ********************** BBCFMT0B **********************************03820370
C***** 03830370 C***** 03830370
C***** END OF TEST SEGMENT 181 03840370 C***** END OF TEST SEGMENT 181 03840370
STOP 03850370 STOP, QUIET = .TRUE. 03850370
END 03860370 END 03860370
03870370 03870370

Fortran/UnitTests/fcvs21_f95/FM371.f

Show First 20 Lines • Show All 367 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03790371 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03790371
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03800371 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03800371
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03810371 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03810371
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03820371 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03820371
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03830371 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03830371
CBE** ********************** BBCFMT0B **********************************03840371 CBE** ********************** BBCFMT0B **********************************03840371
C***** 03850371 C***** 03850371
C***** END OF TEST SEGMENT 184 03860371 C***** END OF TEST SEGMENT 184 03860371
STOP 03870371 STOP, QUIET = .TRUE. 03870371
END 03880371 END 03880371
03890371 03890371

Fortran/UnitTests/fcvs21_f95/FM372.f

Show First 20 Lines • Show All 392 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04040372 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04040372
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04050372 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04050372
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04060372 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04060372
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04070372 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04070372
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04080372 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04080372
CBE** ********************** BBCFMT0B **********************************04090372 CBE** ********************** BBCFMT0B **********************************04090372
C***** 04100372 C***** 04100372
C***** END OF TEST SEGMENT 186 04110372 C***** END OF TEST SEGMENT 186 04110372
STOP 04120372 STOP, QUIET = .TRUE. 04120372
END 04130372 END 04130372
04140372 04140372

Fortran/UnitTests/fcvs21_f95/FM373.f

Show First 20 Lines • Show All 405 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04170373 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04170373
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04180373 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04180373
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04190373 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04190373
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04200373 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04200373
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04210373 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04210373
CBE** ********************** BBCFMT0B **********************************04220373 CBE** ********************** BBCFMT0B **********************************04220373
C***** 04230373 C***** 04230373
C***** END OF TEST SEGMENT 189 04240373 C***** END OF TEST SEGMENT 189 04240373
STOP 04250373 STOP, QUIET = .TRUE. 04250373
END 04260373 END 04260373
04270373 04270373

Fortran/UnitTests/fcvs21_f95/FM374.f

Show First 20 Lines • Show All 331 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03550374 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03550374
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03560374 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03560374
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03570374 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03570374
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03580374 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03580374
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03590374 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03590374
CBE** ********************** BBCFMT0B **********************************03600374 CBE** ********************** BBCFMT0B **********************************03600374
C***** 03610374 C***** 03610374
C***** END OF TEST SEGMENT 191 03620374 C***** END OF TEST SEGMENT 191 03620374
STOP 03630374 STOP, QUIET = .TRUE. 03630374
END 03640374 END 03640374
03650374 03650374

Fortran/UnitTests/fcvs21_f95/FM375.f

Show First 20 Lines • Show All 333 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03320375 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03320375
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03330375 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03330375
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03340375 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03340375
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03350375 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03350375
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03360375 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03360375
CBE** ********************** BBCFMT0B **********************************03370375 CBE** ********************** BBCFMT0B **********************************03370375
C***** 03380375 C***** 03380375
C***** END OF TEST SEGMENT 193 03390375 C***** END OF TEST SEGMENT 193 03390375
STOP 03400375 STOP, QUIET = .TRUE. 03400375
END 03410375 END 03410375

Fortran/UnitTests/fcvs21_f95/FM376.f

Show First 20 Lines • Show All 352 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03510376 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03510376
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03520376 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03520376
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03530376 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03530376
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03540376 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03540376
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03550376 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03550376
CBE** ********************** BBCFMT0B **********************************03560376 CBE** ********************** BBCFMT0B **********************************03560376
C***** 03570376 C***** 03570376
C***** END OF TEST SEGMENT 195 03580376 C***** END OF TEST SEGMENT 195 03580376
STOP 03590376 STOP, QUIET = .TRUE. 03590376
END 03600376 END 03600376
03610376 03610376

Fortran/UnitTests/fcvs21_f95/FM377.f

Show First 20 Lines • Show All 374 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03730377 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03730377
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03740377 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03740377
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03750377 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03750377
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03760377 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03760377
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03770377 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03770377
CBE** ********************** BBCFMT0B **********************************03780377 CBE** ********************** BBCFMT0B **********************************03780377
C***** 03790377 C***** 03790377
C***** END OF TEST SEGMENT 197 03800377 C***** END OF TEST SEGMENT 197 03800377
STOP 03810377 STOP, QUIET = .TRUE. 03810377
END 03820377 END 03820377

Fortran/UnitTests/fcvs21_f95/FM378.f

Show First 20 Lines • Show All 290 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02890378 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02890378
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02900378 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02900378
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02910378 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02910378
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02920378 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02920378
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02930378 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02930378
CBE** ********************** BBCFMT0B **********************************02940378 CBE** ********************** BBCFMT0B **********************************02940378
C***** 02950378 C***** 02950378
C***** END OF TEST SEGMENT 199 02960378 C***** END OF TEST SEGMENT 199 02960378
STOP 02970378 STOP, QUIET = .TRUE. 02970378
END 02980378 END 02980378
02990378 02990378

Fortran/UnitTests/fcvs21_f95/FM379.f

Show First 20 Lines • Show All 316 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03150379 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03150379
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03160379 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03160379
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03170379 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03170379
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03180379 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03180379
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03190379 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03190379
CBE** ********************** BBCFMT0B **********************************03200379 CBE** ********************** BBCFMT0B **********************************03200379
C***** 03210379 C***** 03210379
C***** END OF TEST SEGMENT 201 03220379 C***** END OF TEST SEGMENT 201 03220379
STOP 03230379 STOP, QUIET = .TRUE. 03230379
END 03240379 END 03240379
03250379 03250379

Fortran/UnitTests/fcvs21_f95/FM401.f

Show First 20 Lines • Show All 1,114 Lines • ▼ Show 20 LinesC 11140401
WRITE (I02,90004) 11150401 WRITE (I02,90004) 11150401
WRITE (I02,90014) 11160401 WRITE (I02,90014) 11160401
WRITE (I02,90004) 11170401 WRITE (I02,90004) 11170401
WRITE (I02,90000) 11180401 WRITE (I02,90000) 11180401
WRITE (I02,90004) 11190401 WRITE (I02,90004) 11190401
WRITE (I02,90020) IVFAIL 11200401 WRITE (I02,90020) IVFAIL 11200401
WRITE (I02,90022) IVPASS 11210401 WRITE (I02,90022) IVPASS 11210401
WRITE (I02,90024) IVDELE 11220401 WRITE (I02,90024) IVDELE 11220401
STOP 11230401 STOP, QUIET = .TRUE. 11230401
90001 FORMAT (" ",24X,"FM401") 11240401 90001 FORMAT (" ",24X,"FM401") 11240401
90000 FORMAT (" ",20X,"END OF PROGRAM FM401" ) 11250401 90000 FORMAT (" ",20X,"END OF PROGRAM FM401" ) 11250401
C 11260401 C 11260401
C FORMATS FOR TEST DETAIL LINES 11270401 C FORMATS FOR TEST DETAIL LINES 11270401
C 11280401 C 11280401
80000 FORMAT (" ",4X,I5,6X,"DELETED") 11290401 80000 FORMAT (" ",4X,I5,6X,"DELETED") 11290401
80002 FORMAT (" ",4X,I5,7X,"PASS") 11300401 80002 FORMAT (" ",4X,I5,7X,"PASS") 11300401
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 11310401 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 11310401
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM402.f

Show First 20 Lines • Show All 1,271 Lines • ▼ Show 20 LinesC 12710402
WRITE (I02,90004) 12720402 WRITE (I02,90004) 12720402
WRITE (I02,90014) 12730402 WRITE (I02,90014) 12730402
WRITE (I02,90004) 12740402 WRITE (I02,90004) 12740402
WRITE (I02,90000) 12750402 WRITE (I02,90000) 12750402
WRITE (I02,90004) 12760402 WRITE (I02,90004) 12760402
WRITE (I02,90020) IVFAIL 12770402 WRITE (I02,90020) IVFAIL 12770402
WRITE (I02,90022) IVPASS 12780402 WRITE (I02,90022) IVPASS 12780402
WRITE (I02,90024) IVDELE 12790402 WRITE (I02,90024) IVDELE 12790402
STOP 12800402 STOP, QUIET = .TRUE. 12800402
90001 FORMAT (" ",24X,"FM402") 12810402 90001 FORMAT (" ",24X,"FM402") 12810402
90000 FORMAT (" ",20X,"END OF PROGRAM FM402" ) 12820402 90000 FORMAT (" ",20X,"END OF PROGRAM FM402" ) 12820402
C 12830402 C 12830402
C FORMATS FOR TEST DETAIL LINES 12840402 C FORMATS FOR TEST DETAIL LINES 12840402
C 12850402 C 12850402
80000 FORMAT (" ",4X,I5,6X,"DELETED") 12860402 80000 FORMAT (" ",4X,I5,6X,"DELETED") 12860402
80002 FORMAT (" ",4X,I5,7X,"PASS") 12870402 80002 FORMAT (" ",4X,I5,7X,"PASS") 12870402
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 12880402 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 12880402
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM403.f

Show First 20 Lines • Show All 1,020 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 10130403 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 10130403
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 10140403 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 10140403
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 10150403 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 10150403
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 10160403 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 10160403
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 10170403 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 10170403
CBE** ********************** BBCFMT0B **********************************10180403 CBE** ********************** BBCFMT0B **********************************10180403
C***** 10190403 C***** 10190403
C***** END OF TEST SEGMENT 020 10200403 C***** END OF TEST SEGMENT 020 10200403
STOP 10210403 STOP, QUIET = .TRUE. 10210403
END 10220403 END 10220403
10230403 10230403
10240403 10240403

Fortran/UnitTests/fcvs21_f95/FM404.f

Show First 20 Lines • Show All 313 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03120404 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03120404
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03130404 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03130404
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03140404 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03140404
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03150404 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03150404
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03160404 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03160404
CBE** ********************** BBCFMT0B **********************************03170404 CBE** ********************** BBCFMT0B **********************************03170404
C***** 03180404 C***** 03180404
C***** END OF TEST SEGMENT 022 03190404 C***** END OF TEST SEGMENT 022 03190404
STOP 03200404 STOP, QUIET = .TRUE. 03200404
END 03210404 END 03210404

Fortran/UnitTests/fcvs21_f95/FM405.f

Show First 20 Lines • Show All 473 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 04720405 C**** FORMAT STATEMENTS FOR RUN SUMMARY 04720405
C**** 04730405 C**** 04730405
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04740405 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04740405
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04750405 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04750405
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04760405 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04760405
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04770405 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04770405
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04780405 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04780405
CBE** ********************** BBCFMT0B **********************************04790405 CBE** ********************** BBCFMT0B **********************************04790405
STOP 04800405 STOP, QUIET = .TRUE. 04800405
END 04810405 END 04810405

Fortran/UnitTests/fcvs21_f95/FM407.f

Show First 20 Lines • Show All 311 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03370407 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03370407
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03380407 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03380407
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03390407 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03390407
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03400407 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03400407
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03410407 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03410407
CBE** ********************** BBCFMT0B **********************************03420407 CBE** ********************** BBCFMT0B **********************************03420407
C***** 03430407 C***** 03430407
C***** END OF TEST SEGMENT 410 03440407 C***** END OF TEST SEGMENT 410 03440407
STOP 03450407 STOP, QUIET = .TRUE. 03450407
END 03460407 END 03460407
C********************************************************************** 00010408 C********************************************************************** 00010408
C***** FORTRAN 77 00020408 C***** FORTRAN 77 00020408
C***** FM408 00030408 C***** FM408 00030408
C***** SN408 DAQ - (805) 00040408 C***** SN408 DAQ - (805) 00040408
C***** THIS SUBROUTINE IS CALLED BY FM407 00050408 C***** THIS SUBROUTINE IS CALLED BY FM407 00050408
C********************************************************************** 00060408 C********************************************************************** 00060408
Show All 39 Lines

Fortran/UnitTests/fcvs21_f95/FM411.f

Show First 20 Lines • Show All 1,419 Lines • ▼ Show 20 LinesC 14190411
WRITE (I02,90004) 14200411 WRITE (I02,90004) 14200411
WRITE (I02,90014) 14210411 WRITE (I02,90014) 14210411
WRITE (I02,90004) 14220411 WRITE (I02,90004) 14220411
WRITE (I02,90000) 14230411 WRITE (I02,90000) 14230411
WRITE (I02,90004) 14240411 WRITE (I02,90004) 14240411
WRITE (I02,90020) IVFAIL 14250411 WRITE (I02,90020) IVFAIL 14250411
WRITE (I02,90022) IVPASS 14260411 WRITE (I02,90022) IVPASS 14260411
WRITE (I02,90024) IVDELE 14270411 WRITE (I02,90024) IVDELE 14270411
STOP 14280411 STOP, QUIET = .TRUE. 14280411
90001 FORMAT (" ",24X,"FM411") 14290411 90001 FORMAT (" ",24X,"FM411") 14290411
90000 FORMAT (" ",20X,"END OF PROGRAM FM411" ) 14300411 90000 FORMAT (" ",20X,"END OF PROGRAM FM411" ) 14300411
C 14310411 C 14310411
C FORMATS FOR TEST DETAIL LINES 14320411 C FORMATS FOR TEST DETAIL LINES 14320411
C 14330411 C 14330411
80000 FORMAT (" ",4X,I5,6X,"DELETED") 14340411 80000 FORMAT (" ",4X,I5,6X,"DELETED") 14340411
80002 FORMAT (" ",4X,I5,7X,"PASS") 14350411 80002 FORMAT (" ",4X,I5,7X,"PASS") 14350411
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 14360411 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 14360411
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM413.f

Show First 20 Lines • Show All 1,382 Lines • ▼ Show 20 LinesC 13820413
WRITE (I02,90004) 13830413 WRITE (I02,90004) 13830413
WRITE (I02,90014) 13840413 WRITE (I02,90014) 13840413
WRITE (I02,90004) 13850413 WRITE (I02,90004) 13850413
WRITE (I02,90000) 13860413 WRITE (I02,90000) 13860413
WRITE (I02,90004) 13870413 WRITE (I02,90004) 13870413
WRITE (I02,90020) IVFAIL 13880413 WRITE (I02,90020) IVFAIL 13880413
WRITE (I02,90022) IVPASS 13890413 WRITE (I02,90022) IVPASS 13890413
WRITE (I02,90024) IVDELE 13900413 WRITE (I02,90024) IVDELE 13900413
STOP 13910413 STOP, QUIET = .TRUE. 13910413
90001 FORMAT (" ",24X,"FM413") 13920413 90001 FORMAT (" ",24X,"FM413") 13920413
90000 FORMAT (" ",20X,"END OF PROGRAM FM413" ) 13930413 90000 FORMAT (" ",20X,"END OF PROGRAM FM413" ) 13930413
C 13940413 C 13940413
C FORMATS FOR TEST DETAIL LINES 13950413 C FORMATS FOR TEST DETAIL LINES 13950413
C 13960413 C 13960413
80000 FORMAT (" ",4X,I5,6X,"DELETED") 13970413 80000 FORMAT (" ",4X,I5,6X,"DELETED") 13970413
80002 FORMAT (" ",4X,I5,7X,"PASS") 13980413 80002 FORMAT (" ",4X,I5,7X,"PASS") 13980413
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 13990413 80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6) 13990413
Show All 20 Lines

Fortran/UnitTests/fcvs21_f95/FM500.f

Show All 29 Lines
C***** COMMON /BLK2/ AXVS, BXVS, JX1S(2), CX2S(2,2), DZ3S(2,2,2), EZVS 00280500 C***** COMMON /BLK2/ AXVS, BXVS, JX1S(2), CX2S(2,2), DZ3S(2,2,2), EZVS 00280500
C***** COMMON /BLK3/ RXVD, AX1D(2), BX4D 00290500 C***** COMMON /BLK3/ RXVD, AX1D(2), BX4D 00290500
C***** COMMON /BLK4/ AXVC, BX1C(2), CZ5C(2,2,2,2,2) 00300500 C***** COMMON /BLK4/ AXVC, BX1C(2), CZ5C(2,2,2,2,2) 00300500
C***** COMMON /BLK5/ AXVB, BZ1B(2), CX6B 00310500 C***** COMMON /BLK5/ AXVB, BZ1B(2), CX6B 00310500
C***** COMMON /BLK6/ A1XVK, B1X1K(2), C1X7K(2,2,2,2,2,2,2), 00320500 C***** COMMON /BLK6/ A1XVK, B1X1K(2), C1X7K(2,2,2,2,2,2,2), 00320500
C***** S2XVK, D2Z1K(2), E4XVK, G4X2K(2,2), I10XVK 00330500 C***** S2XVK, D2Z1K(2), E4XVK, G4X2K(2,2), I10XVK 00330500
C***** 00340500 C***** 00340500
CALL SN501 00350500 CALL SN501 00350500
STOP 00360500 STOP, QUIET = .TRUE. 00360500
C***** END OF TEST SEGMENT 260 00370500 C***** END OF TEST SEGMENT 260 00370500
END 00380500 END 00380500
C***********************************************************************00010501 C***********************************************************************00010501
C***** FORTRAN 77 00020501 C***** FORTRAN 77 00020501
C***** FM501 SN501 - (251) 00030501 C***** FM501 SN501 - (251) 00030501
C***** THIS SUBROUTINE IS CALLED BY PROGRAM FM500 00040501 C***** THIS SUBROUTINE IS CALLED BY PROGRAM FM500 00040501
C***********************************************************************00050501 C***********************************************************************00050501
▲ Show 20 Lines • Show All 759 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM503.f

Show All 35 Lines
C***** LOGICAL AXVB 00340503 C***** LOGICAL AXVB 00340503
C***** CHARACTER*6 A6XVK, B6XVK, CVCORR 00350503 C***** CHARACTER*6 A6XVK, B6XVK, CVCORR 00350503
C***** 00360503 C***** 00360503
C***** COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00370503 C***** COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00370503
C***** COMMON /BLK7/ A6XVK, B6XVK 00380503 C***** COMMON /BLK7/ A6XVK, B6XVK 00380503
C***** 00390503 C***** 00390503
C***** 00400503 C***** 00400503
CALL SN505 00410503 CALL SN505 00410503
STOP 00420503 STOP, QUIET = .TRUE. 00420503
C***** 00430503 C***** 00430503
C***** END OF TEST SEGMENT 261 00440503 C***** END OF TEST SEGMENT 261 00440503
END 00450503 END 00450503
C***********************************************************************00010504 C***********************************************************************00010504
C***** FORTRAN 77 00020504 C***** FORTRAN 77 00020504
C***** FM504 BDS2 (UNNAMED) - (702) 00030504 C***** FM504 BDS2 (UNNAMED) - (702) 00030504
C***** THIS BLOCK DATA SUBPROGRAM IS USED BY FM503 00040504 C***** THIS BLOCK DATA SUBPROGRAM IS USED BY FM503 00040504
▲ Show 20 Lines • Show All 323 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM506.f

Show All 33 Lines
C***** CHARACTER*5 E5XVK 00320506 C***** CHARACTER*5 E5XVK 00320506
C***** COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330506 C***** COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330506
C***** 00340506 C***** 00340506
NUVI = 4 00350506 NUVI = 4 00350506
C***** 00360506 C***** 00360506
CALL SN508(NUVI) 00370506 CALL SN508(NUVI) 00370506
C***** 00380506 C***** 00380506
C***** END OF TEST SEGMENT 262 00390506 C***** END OF TEST SEGMENT 262 00390506
STOP 00400506 STOP, QUIET = .TRUE. 00400506
END 00410506 END 00410506
C***********************************************************************00010507 C***********************************************************************00010507
C***** FORTRAN 77 00020507 C***** FORTRAN 77 00020507
C***** FM507 BDS3 - (704) 00030507 C***** FM507 BDS3 - (704) 00030507
C***** BLOCK DATA SUBPROGRAM AN507 USED BY FM506 00040507 C***** BLOCK DATA SUBPROGRAM AN507 USED BY FM506 00040507
C***********************************************************************00050507 C***********************************************************************00050507
C***** 00060507 C***** 00060507
▲ Show 20 Lines • Show All 283 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM509.f

Show First 20 Lines • Show All 469 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 04690509 C**** FORMAT STATEMENTS FOR RUN SUMMARY 04690509
C**** 04700509 C**** 04700509
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04710509 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04710509
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04720509 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04720509
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04730509 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04730509
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04740509 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04740509
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04750509 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04750509
CBE** ********************** BBCFMT0B **********************************04760509 CBE** ********************** BBCFMT0B **********************************04760509
STOP 04770509 STOP, QUIET = .TRUE. 04770509
END 04780509 END 04780509
C 00010510 C 00010510
C THIS ROUTINE IS TO BE RUN WITH ROUTINE 509. 00020510 C THIS ROUTINE IS TO BE RUN WITH ROUTINE 509. 00020510
C 00030510 C 00030510
C THIS SUBROUTINE IS CALLED IN THE MAIN PROGRAM TO TEST IF 00040510 C THIS SUBROUTINE IS CALLED IN THE MAIN PROGRAM TO TEST IF 00040510
C MULTIPLE ENTRIES ARE PERMITTED IN A SUBROUTINE SUBPROGRAM. 00050510 C MULTIPLE ENTRIES ARE PERMITTED IN A SUBROUTINE SUBPROGRAM. 00050510
C 00060510 C 00060510
▲ Show 20 Lines • Show All 83 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM514.f

Show First 20 Lines • Show All 233 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 02340514 C**** FORMAT STATEMENTS FOR RUN SUMMARY 02340514
C**** 02350514 C**** 02350514
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02360514 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02360514
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02370514 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02370514
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02380514 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02380514
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02390514 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02390514
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02400514 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02400514
CBE** ********************** BBCFMT0B **********************************02410514 CBE** ********************** BBCFMT0B **********************************02410514
STOP 02420514 STOP, QUIET = .TRUE. 02420514
END 02430514 END 02430514
C 00010515 C 00010515
C THIS ROUTINE IS TO BE RUN WITH ROUTINE 514 00020515 C THIS ROUTINE IS TO BE RUN WITH ROUTINE 514 00020515
C 00030515 C 00030515
C THIS SUBROUTINE IS USED TO TEST SUBROUTINE STATEMENT WITH 00040515 C THIS SUBROUTINE IS USED TO TEST SUBROUTINE STATEMENT WITH 00040515
C ASTERISK DUMMY ARGUMENTS 00050515 C ASTERISK DUMMY ARGUMENTS 00050515
C 00060515 C 00060515
Show All 13 Lines

Fortran/UnitTests/fcvs21_f95/FM517.f

Show First 20 Lines • Show All 307 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 03080517 C**** FORMAT STATEMENTS FOR RUN SUMMARY 03080517
C**** 03090517 C**** 03090517
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03100517 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03100517
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03110517 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03110517
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03120517 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03120517
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03130517 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03130517
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03140517 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03140517
CBE** ********************** BBCFMT0B **********************************03150517 CBE** ********************** BBCFMT0B **********************************03150517
STOP 03160517 STOP, QUIET = .TRUE. 03160517
END 03170517 END 03170517
C 00010518 C 00010518
C THIS ROUTINE IS TO BE RUN WITH ROUTINE 517 00020518 C THIS ROUTINE IS TO BE RUN WITH ROUTINE 517 00020518
C 00030518 C 00030518
C THIS SUBROUTINE TESTS THE USE OF THE "RETURN E" STATEMENT 00040518 C THIS SUBROUTINE TESTS THE USE OF THE "RETURN E" STATEMENT 00040518
C WHERE E IS AN INTEGER VARIABLE 00050518 C WHERE E IS AN INTEGER VARIABLE 00050518
C 00060518 C 00060518
Show All 15 Lines

Fortran/UnitTests/fcvs21_f95/FM700.f

Show First 20 Lines • Show All 598 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 05990700 C**** FORMAT STATEMENTS FOR RUN SUMMARY 05990700
C**** 06000700 C**** 06000700
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06010700 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06010700
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06020700 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06020700
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06030700 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06030700
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06040700 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06040700
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06050700 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06050700
CBE** ********************** BBCFMT0B **********************************06060700 CBE** ********************** BBCFMT0B **********************************06060700
STOP 06070700 STOP, QUIET = .TRUE. 06070700
END 06080700 END 06080700

Fortran/UnitTests/fcvs21_f95/FM800.f

Show First 20 Lines • Show All 338 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03370800 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03370800
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03380800 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03380800
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03390800 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03390800
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03400800 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03400800
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03410800 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03410800
CBE** ********************** BBCFMT0B **********************************03420800 CBE** ********************** BBCFMT0B **********************************03420800
C***** 03430800 C***** 03430800
C***** END OF TEST SEGMENT 151 03440800 C***** END OF TEST SEGMENT 151 03440800
STOP 03450800 STOP, QUIET = .TRUE. 03450800
END 03460800 END 03460800
03470800 03470800

Fortran/UnitTests/fcvs21_f95/FM801.f

Show First 20 Lines • Show All 790 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 07890801 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 07890801
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 07900801 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 07900801
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 07910801 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 07910801
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 07920801 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 07920801
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 07930801 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 07930801
CBE** ********************** BBCFMT0B **********************************07940801 CBE** ********************** BBCFMT0B **********************************07940801
C***** 07950801 C***** 07950801
C***** END OF TEST SEGMENT 155 07960801 C***** END OF TEST SEGMENT 155 07960801
STOP 07970801 STOP, QUIET = .TRUE. 07970801
END 07980801 END 07980801
07990801 07990801

Fortran/UnitTests/fcvs21_f95/FM802.f

Show First 20 Lines • Show All 272 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02710802 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02710802
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02720802 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02720802
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02730802 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02730802
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02740802 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02740802
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02750802 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02750802
CBE** ********************** BBCFMT0B **********************************02760802 CBE** ********************** BBCFMT0B **********************************02760802
C***** 02770802 C***** 02770802
C***** END OF TEST SEGMENT 157 02780802 C***** END OF TEST SEGMENT 157 02780802
STOP 02790802 STOP, QUIET = .TRUE. 02790802
END 02800802 END 02800802
02810802 02810802

Fortran/UnitTests/fcvs21_f95/FM803.f

Show First 20 Lines • Show All 304 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03030803 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03030803
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03040803 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03040803
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03050803 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03050803
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03060803 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03060803
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03070803 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03070803
CBE** ********************** BBCFMT0B **********************************03080803 CBE** ********************** BBCFMT0B **********************************03080803
C***** 03090803 C***** 03090803
C***** END OF TEST SEGMENT 158 03100803 C***** END OF TEST SEGMENT 158 03100803
STOP 03110803 STOP, QUIET = .TRUE. 03110803
END 03120803 END 03120803
03130803 03130803

Fortran/UnitTests/fcvs21_f95/FM804.f

Show First 20 Lines • Show All 349 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03480804 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03480804
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03490804 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03490804
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03500804 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03500804
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03510804 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03510804
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03520804 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03520804
CBE** ********************** BBCFMT0B **********************************03530804 CBE** ********************** BBCFMT0B **********************************03530804
C***** 03540804 C***** 03540804
C***** END OF TEST SEGMENT 160 03550804 C***** END OF TEST SEGMENT 160 03550804
STOP 03560804 STOP, QUIET = .TRUE. 03560804
END 03570804 END 03570804
03580804 03580804

Fortran/UnitTests/fcvs21_f95/FM805.f

Show First 20 Lines • Show All 475 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04740805 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04740805
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04750805 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04750805
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04760805 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04760805
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04770805 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04770805
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04780805 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04780805
CBE** ********************** BBCFMT0B **********************************04790805 CBE** ********************** BBCFMT0B **********************************04790805
C***** 04800805 C***** 04800805
C***** END OF TEST SEGMENT 164 04810805 C***** END OF TEST SEGMENT 164 04810805
STOP 04820805 STOP, QUIET = .TRUE. 04820805
END 04830805 END 04830805
04840805 04840805

Fortran/UnitTests/fcvs21_f95/FM806.f

Show First 20 Lines • Show All 361 Lines • ▼ Show 20 Lines
C**** 03600806 C**** 03600806
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03610806 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03610806
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03620806 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03620806
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03630806 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03630806
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03640806 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03640806
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03650806 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03650806
CBE** ********************** BBCFMT0B **********************************03660806 CBE** ********************** BBCFMT0B **********************************03660806
C***** END OF TEST SEGMENT 166 03670806 C***** END OF TEST SEGMENT 166 03670806
STOP 03680806 STOP, QUIET = .TRUE. 03680806
END 03690806 END 03690806
03700806 03700806

Fortran/UnitTests/fcvs21_f95/FM807.f

Show First 20 Lines • Show All 362 Lines • ▼ Show 20 Lines
C**** 03610807 C**** 03610807
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03620807 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03620807
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03630807 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03630807
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03640807 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03640807
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03650807 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03650807
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03660807 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03660807
CBE** ********************** BBCFMT0B **********************************03670807 CBE** ********************** BBCFMT0B **********************************03670807
C***** END OF TEST SEGMENT 168 03680807 C***** END OF TEST SEGMENT 168 03680807
STOP 03690807 STOP, QUIET = .TRUE. 03690807
END 03700807 END 03700807
03710807 03710807

Fortran/UnitTests/fcvs21_f95/FM808.f

Show First 20 Lines • Show All 298 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02970808 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02970808
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02980808 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02980808
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02990808 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02990808
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03000808 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03000808
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03010808 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03010808
CBE** ********************** BBCFMT0B **********************************03020808 CBE** ********************** BBCFMT0B **********************************03020808
C***** 03030808 C***** 03030808
C***** END OF TEST SEGMENT 169 03040808 C***** END OF TEST SEGMENT 169 03040808
STOP 03050808 STOP, QUIET = .TRUE. 03050808
END 03060808 END 03060808
03070808 03070808

Fortran/UnitTests/fcvs21_f95/FM809.f

Show First 20 Lines • Show All 583 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 05820809 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 05820809
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 05830809 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 05830809
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 05840809 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 05840809
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 05850809 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 05850809
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 05860809 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 05860809
CBE** ********************** BBCFMT0B **********************************05870809 CBE** ********************** BBCFMT0B **********************************05870809
C***** 05880809 C***** 05880809
C***** END OF TEST SEGMENT 170 05890809 C***** END OF TEST SEGMENT 170 05890809
STOP 05900809 STOP, QUIET = .TRUE. 05900809
END 05910809 END 05910809
05920809 05920809

Fortran/UnitTests/fcvs21_f95/FM810.f

Show First 20 Lines • Show All 346 Lines • ▼ Show 20 Lines
C**** 03450810 C**** 03450810
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03460810 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03460810
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03470810 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03470810
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03480810 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03480810
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03490810 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03490810
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03500810 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03500810
CBE** ********************** BBCFMT0B **********************************03510810 CBE** ********************** BBCFMT0B **********************************03510810
C***** END OF TEST SEGMENT 173 03520810 C***** END OF TEST SEGMENT 173 03520810
STOP 03530810 STOP, QUIET = .TRUE. 03530810
END 03540810 END 03540810
03550810 03550810

Fortran/UnitTests/fcvs21_f95/FM811.f

Show First 20 Lines • Show All 355 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03540811 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03540811
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03550811 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03550811
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03560811 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03560811
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03570811 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03570811
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03580811 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03580811
CBE** ********************** BBCFMT0B **********************************03590811 CBE** ********************** BBCFMT0B **********************************03590811
C***** 03600811 C***** 03600811
C***** END OF TEST SEGMENT 174 03610811 C***** END OF TEST SEGMENT 174 03610811
STOP 03620811 STOP, QUIET = .TRUE. 03620811
END 03630811 END 03630811
03640811 03640811

Fortran/UnitTests/fcvs21_f95/FM812.f

Show First 20 Lines • Show All 354 Lines • ▼ Show 20 Lines
C**** 03530812 C**** 03530812
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03540812 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03540812
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03550812 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03550812
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03560812 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03560812
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03570812 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03570812
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03580812 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03580812
CBE** ********************** BBCFMT0B **********************************03590812 CBE** ********************** BBCFMT0B **********************************03590812
C***** END OF TEST SEGMENT 176 03600812 C***** END OF TEST SEGMENT 176 03600812
STOP 03610812 STOP, QUIET = .TRUE. 03610812
END 03620812 END 03620812
03630812 03630812

Fortran/UnitTests/fcvs21_f95/FM813.f

Show First 20 Lines • Show All 393 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03920813 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03920813
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03930813 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03930813
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03940813 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03940813
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03950813 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03950813
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03960813 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03960813
CBE** ********************** BBCFMT0B **********************************03970813 CBE** ********************** BBCFMT0B **********************************03970813
C***** 03980813 C***** 03980813
C***** END OF TEST SEGMENT 177 03990813 C***** END OF TEST SEGMENT 177 03990813
STOP 04000813 STOP, QUIET = .TRUE. 04000813
END 04010813 END 04010813
04020813 04020813

Fortran/UnitTests/fcvs21_f95/FM814.f

Show First 20 Lines • Show All 435 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04340814 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04340814
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04350814 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04350814
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04360814 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04360814
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04370814 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04370814
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04380814 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04380814
CBE** ********************** BBCFMT0B **********************************04390814 CBE** ********************** BBCFMT0B **********************************04390814
C***** 04400814 C***** 04400814
C***** END OF TEST SEGMENT 179 04410814 C***** END OF TEST SEGMENT 179 04410814
STOP 04420814 STOP, QUIET = .TRUE. 04420814
END 04430814 END 04430814
04440814 04440814

Fortran/UnitTests/fcvs21_f95/FM815.f

Show First 20 Lines • Show All 330 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03290815 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03290815
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03300815 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03300815
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03310815 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03310815
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03320815 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03320815
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03330815 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03330815
CBE** ********************** BBCFMT0B **********************************03340815 CBE** ********************** BBCFMT0B **********************************03340815
C***** 03350815 C***** 03350815
C***** END OF TEST SEGMENT 180 03360815 C***** END OF TEST SEGMENT 180 03360815
STOP 03370815 STOP, QUIET=.TRUE. 03370815
END 03380815 END 03380815
03390815 03390815

Fortran/UnitTests/fcvs21_f95/FM816.f

Show First 20 Lines • Show All 396 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03950816 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03950816
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03960816 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03960816
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03970816 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03970816
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03980816 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03980816
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03990816 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03990816
CBE** ********************** BBCFMT0B **********************************04000816 CBE** ********************** BBCFMT0B **********************************04000816
C***** 04010816 C***** 04010816
C***** END OF TEST SEGMENT 182 04020816 C***** END OF TEST SEGMENT 182 04020816
STOP 04030816 STOP, QUIET = .TRUE. 04030816
END 04040816 END 04040816
04050816 04050816

Fortran/UnitTests/fcvs21_f95/FM817.f

Show First 20 Lines • Show All 363 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03620817 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03620817
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03630817 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03630817
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03640817 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03640817
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03650817 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03650817
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03660817 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03660817
CBE** ********************** BBCFMT0B **********************************03670817 CBE** ********************** BBCFMT0B **********************************03670817
C***** 03680817 C***** 03680817
C***** END OF TEST SEGMENT 183 03690817 C***** END OF TEST SEGMENT 183 03690817
STOP 03700817 STOP, QUIET=.TRUE. 03700817
END 03710817 END 03710817
03720817 03720817

Fortran/UnitTests/fcvs21_f95/FM818.f

Show First 20 Lines • Show All 384 Lines • ▼ Show 20 Lines
C**** 03960818 C**** 03960818
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03970818 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03970818
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03980818 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03980818
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03990818 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03990818
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04000818 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04000818
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04010818 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04010818
CBE** ********************** BBCFMT0B **********************************04020818 CBE** ********************** BBCFMT0B **********************************04020818
C***** END OF TEST SEGMENT 185 04030818 C***** END OF TEST SEGMENT 185 04030818
STOP 04040818 STOP, QUIET = .TRUE. 04040818
END 04050818 END 04050818
04060818 04060818

Fortran/UnitTests/fcvs21_f95/FM819.f

Show First 20 Lines • Show All 437 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04360819 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04360819
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04370819 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04370819
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04380819 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04380819
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04390819 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04390819
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04400819 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04400819
CBE** ********************** BBCFMT0B **********************************04410819 CBE** ********************** BBCFMT0B **********************************04410819
C***** 04420819 C***** 04420819
C***** END OF TEST SEGMENT 187 04430819 C***** END OF TEST SEGMENT 187 04430819
STOP 04440819 STOP, QUIET = .TRUE. 04440819
END 04450819 END 04450819
04460819 04460819

Fortran/UnitTests/fcvs21_f95/FM820.f

Show First 20 Lines • Show All 469 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04820820 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04820820
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04830820 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04830820
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04840820 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04840820
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04850820 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04850820
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04860820 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04860820
CBE** ********************** BBCFMT0B **********************************04870820 CBE** ********************** BBCFMT0B **********************************04870820
C***** 04880820 C***** 04880820
C***** END OF TEST SEGMENT 188 04890820 C***** END OF TEST SEGMENT 188 04890820
STOP 04900820 STOP, QUIET=.TRUE. 04900820
END 04910820 END 04910820
04920820 04920820

Fortran/UnitTests/fcvs21_f95/FM821.f

Show First 20 Lines • Show All 437 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04360821 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04360821
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04370821 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04370821
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04380821 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04380821
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04390821 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04390821
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04400821 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04400821
CBE** ********************** BBCFMT0B **********************************04410821 CBE** ********************** BBCFMT0B **********************************04410821
C***** 04420821 C***** 04420821
C***** END OF TEST SEGMENT 190 04430821 C***** END OF TEST SEGMENT 190 04430821
STOP 04440821 STOP, QUIET = .TRUE. 04440821
END 04450821 END 04450821
04460821 04460821

Fortran/UnitTests/fcvs21_f95/FM822.f

Show First 20 Lines • Show All 375 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03740822 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03740822
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03750822 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03750822
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03760822 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03760822
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03770822 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03770822
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03780822 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03780822
CBE** ********************** BBCFMT0B **********************************03790822 CBE** ********************** BBCFMT0B **********************************03790822
C***** 03800822 C***** 03800822
C***** END OF TEST SEGMENT 192 03810822 C***** END OF TEST SEGMENT 192 03810822
STOP 03820822 STOP, QUIET = .TRUE. 03820822
END 03830822 END 03830822

Fortran/UnitTests/fcvs21_f95/FM823.f

Show First 20 Lines • Show All 352 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03510823 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03510823
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03520823 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03520823
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03530823 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03530823
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03540823 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03540823
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03550823 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03550823
CBE** ********************** BBCFMT0B **********************************03560823 CBE** ********************** BBCFMT0B **********************************03560823
C***** 03570823 C***** 03570823
C***** END OF TEST SEGMENT 194 03580823 C***** END OF TEST SEGMENT 194 03580823
STOP 03590823 STOP, QUIET = .TRUE. 03590823
END 03600823 END 03600823

Fortran/UnitTests/fcvs21_f95/FM824.f

Show First 20 Lines • Show All 371 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03700824 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03700824
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03710824 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03710824
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03720824 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03720824
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03730824 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03730824
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03740824 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03740824
CBE** ********************** BBCFMT0B **********************************03750824 CBE** ********************** BBCFMT0B **********************************03750824
C***** 03760824 C***** 03760824
C***** END OF TEST SEGMENT 196 03770824 C***** END OF TEST SEGMENT 196 03770824
STOP 03780824 STOP, QUIET = .TRUE. 03780824
END 03790824 END 03790824
03800824 03800824

Fortran/UnitTests/fcvs21_f95/FM825.f

Show First 20 Lines • Show All 407 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04060825 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04060825
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04070825 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04070825
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04080825 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04080825
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04090825 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04090825
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04100825 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04100825
CBE** ********************** BBCFMT0B **********************************04110825 CBE** ********************** BBCFMT0B **********************************04110825
C***** 04120825 C***** 04120825
C***** END OF TEST SEGMENT 198 04130825 C***** END OF TEST SEGMENT 198 04130825
STOP 04140825 STOP, QUIET = .TRUE. 04140825
END 04150825 END 04150825

Fortran/UnitTests/fcvs21_f95/FM826.f

Show First 20 Lines • Show All 309 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03080826 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03080826
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03090826 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03090826
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03100826 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03100826
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03110826 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03110826
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03120826 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03120826
CBE** ********************** BBCFMT0B **********************************03130826 CBE** ********************** BBCFMT0B **********************************03130826
C***** 03140826 C***** 03140826
C***** END OF TEST SEGMENT 200 03150826 C***** END OF TEST SEGMENT 200 03150826
STOP 03160826 STOP, QUIET = .TRUE. 03160826
END 03170826 END 03170826
03180826 03180826

Fortran/UnitTests/fcvs21_f95/FM827.f

Show First 20 Lines • Show All 334 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03330827 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03330827
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03340827 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03340827
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03350827 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03350827
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03360827 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03360827
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03370827 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03370827
CBE** ********************** BBCFMT0B **********************************03380827 CBE** ********************** BBCFMT0B **********************************03380827
C***** 03390827 C***** 03390827
C***** END OF TEST SEGMENT 202 03400827 C***** END OF TEST SEGMENT 202 03400827
STOP 03410827 STOP, QUIET = .TRUE. 03410827
END 03420827 END 03420827
03430827 03430827

Fortran/UnitTests/fcvs21_f95/FM828.f

Show First 20 Lines • Show All 334 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03330828 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03330828
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03340828 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03340828
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03350828 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03350828
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03360828 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03360828
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03370828 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03370828
CBE** ********************** BBCFMT0B **********************************03380828 CBE** ********************** BBCFMT0B **********************************03380828
C***** 03390828 C***** 03390828
C***** END OF TEST SEGMENT 203 03400828 C***** END OF TEST SEGMENT 203 03400828
STOP 03410828 STOP, QUIET=.TRUE. 03410828
END 03420828 END 03420828
03430828 03430828

Fortran/UnitTests/fcvs21_f95/FM829.f

Show First 20 Lines • Show All 690 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06890829 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 06890829
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06900829 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 06900829
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06910829 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 06910829
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06920829 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 06920829
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06930829 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 06930829
CBE** ********************** BBCFMT0B **********************************06940829 CBE** ********************** BBCFMT0B **********************************06940829
C***** 06950829 C***** 06950829
C***** END OF TEST SEGMENT 206 06960829 C***** END OF TEST SEGMENT 206 06960829
STOP 06970829 STOP, QUIET = .TRUE. 06970829
END 06980829 END 06980829

Fortran/UnitTests/fcvs21_f95/FM830.f

Show First 20 Lines • Show All 312 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03110830 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03110830
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03120830 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03120830
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03130830 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03130830
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03140830 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03140830
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03150830 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03150830
CBE** ********************** BBCFMT0B **********************************03160830 CBE** ********************** BBCFMT0B **********************************03160830
C***** 03170830 C***** 03170830
C***** END OF TEST SEGMENT 207 03180830 C***** END OF TEST SEGMENT 207 03180830
STOP 03190830 STOP, QUIET = .TRUE. 03190830
END 03200830 END 03200830

Fortran/UnitTests/fcvs21_f95/FM831.f

Show First 20 Lines • Show All 361 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03600831 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03600831
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03610831 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03610831
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03620831 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03620831
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03630831 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03630831
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03640831 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03640831
CBE** ********************** BBCFMT0B **********************************03650831 CBE** ********************** BBCFMT0B **********************************03650831
C***** 03660831 C***** 03660831
C***** END OF TEST SEGMENT 208 03670831 C***** END OF TEST SEGMENT 208 03670831
STOP 03680831 STOP, QUIET=.TRUE. 03680831
END 03690831 END 03690831

Fortran/UnitTests/fcvs21_f95/FM832.f

Show First 20 Lines • Show All 474 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04730832 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04730832
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04740832 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04740832
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04750832 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04750832
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04760832 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04760832
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04770832 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04770832
CBE** ********************** BBCFMT0B **********************************04780832 CBE** ********************** BBCFMT0B **********************************04780832
C***** 04790832 C***** 04790832
C***** END OF TEST SEGMENT 210 04800832 C***** END OF TEST SEGMENT 210 04800832
STOP 04810832 STOP, QUIET = .TRUE. 04810832
END 04820832 END 04820832

Fortran/UnitTests/fcvs21_f95/FM833.f

Show First 20 Lines • Show All 352 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03510833 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03510833
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03520833 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03520833
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03530833 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03530833
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03540833 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03540833
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03550833 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03550833
CBE** ********************** BBCFMT0B **********************************03560833 CBE** ********************** BBCFMT0B **********************************03560833
C***** 03570833 C***** 03570833
C***** END OF TEST SEGMENT 211 03580833 C***** END OF TEST SEGMENT 211 03580833
STOP 03590833 STOP, QUIET = .TRUE. 03590833
END 03600833 END 03600833

Fortran/UnitTests/fcvs21_f95/FM834.f

Show First 20 Lines • Show All 283 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02820834 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02820834
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02830834 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02830834
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02840834 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02840834
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02850834 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02850834
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02860834 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02860834
CBE** ********************** BBCFMT0B **********************************02870834 CBE** ********************** BBCFMT0B **********************************02870834
C***** 02880834 C***** 02880834
C***** END OF TEST SEGMENT 212 02890834 C***** END OF TEST SEGMENT 212 02890834
STOP 02900834 STOP, QUIET = .TRUE. 02900834
END 02910834 END 02910834

Fortran/UnitTests/fcvs21_f95/FM900.f

Show First 20 Lines • Show All 822 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08080900 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08080900
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08090900 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08090900
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08100900 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08100900
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08110900 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08110900
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08120900 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08120900
CBE** ********************** BBCFMT0B **********************************08130900 CBE** ********************** BBCFMT0B **********************************08130900
C***** 08140900 C***** 08140900
C***** END OF TEST SEGMENT 21 08150900 C***** END OF TEST SEGMENT 21 08150900
STOP 08160900 STOP, QUIET = .TRUE. 08160900
END 08170900 END 08170900

Fortran/UnitTests/fcvs21_f95/FM901.f

Show First 20 Lines • Show All 304 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03030901 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03030901
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03040901 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03040901
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03050901 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03050901
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03060901 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03060901
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03070901 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03070901
CBE** ********************** BBCFMT0B **********************************03080901 CBE** ********************** BBCFMT0B **********************************03080901
C***** 03090901 C***** 03090901
C***** END OF TEST SEGMENT 023 03100901 C***** END OF TEST SEGMENT 023 03100901
STOP 03110901 STOP, QUIET = .TRUE. 03110901
END 03120901 END 03120901

Fortran/UnitTests/fcvs21_f95/FM903.f

Show First 20 Lines • Show All 513 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 05120903 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 05120903
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 05130903 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 05130903
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 05140903 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 05140903
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 05150903 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 05150903
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 05160903 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 05160903
CBE** ********************** BBCFMT0B **********************************05170903 CBE** ********************** BBCFMT0B **********************************05170903
C***** 05180903 C***** 05180903
C***** END OF TEST SEGMENT 354 05190903 C***** END OF TEST SEGMENT 354 05190903
STOP 05200903 STOP, QUIET = .TRUE. 05200903
END 05210903 END 05210903
C***********************************************************************00010904 C***********************************************************************00010904
C***** FORTRAN 77 00020904 C***** FORTRAN 77 00020904
C***** FM904 SN904 - (790) 00030904 C***** FM904 SN904 - (790) 00030904
C***** THIS SUBROUTINE IS CALLED BY FM903 00040904 C***** THIS SUBROUTINE IS CALLED BY FM903 00040904
C***********************************************************************00050904 C***********************************************************************00050904
C***** GENERAL PURPOSE ANS REFS 00060904 C***** GENERAL PURPOSE ANS REFS 00060904
Show All 35 Lines

Fortran/UnitTests/fcvs21_f95/FM905.f

Show First 20 Lines • Show All 328 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03270905 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03270905
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03280905 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03280905
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03290905 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03290905
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03300905 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03300905
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03310905 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03310905
CBE** ********************** BBCFMT0B **********************************03320905 CBE** ********************** BBCFMT0B **********************************03320905
C***** 03330905 C***** 03330905
C***** END OF TEST SEGMENT 371 03340905 C***** END OF TEST SEGMENT 371 03340905
STOP 03350905 STOP, QUIET=.TRUE. 03350905
END 03360905 END 03360905

Fortran/UnitTests/fcvs21_f95/FM906.f

Show First 20 Lines • Show All 577 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 05760906 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 05760906
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 05770906 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 05770906
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 05780906 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 05780906
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 05790906 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 05790906
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 05800906 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 05800906
CBE** ********************** BBCFMT0B **********************************05810906 CBE** ********************** BBCFMT0B **********************************05810906
C***** 05820906 C***** 05820906
C***** END OF TEST SEGMENT 372 05830906 C***** END OF TEST SEGMENT 372 05830906
STOP 05840906 STOP, QUIET = .TRUE. 05840906
END 05850906 END 05850906

Fortran/UnitTests/fcvs21_f95/FM907.f

Show First 20 Lines • Show All 301 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03000907 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03000907
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03010907 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03010907
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03020907 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03020907
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03030907 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03030907
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03040907 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03040907
CBE** ********************** BBCFMT0B **********************************03050907 CBE** ********************** BBCFMT0B **********************************03050907
C***** 03060907 C***** 03060907
C***** END OF TEST SEGMENT 373 03070907 C***** END OF TEST SEGMENT 373 03070907
STOP 03080907 STOP, QUIET=.TRUE. 03080907
END 03090907 END 03090907

Fortran/UnitTests/fcvs21_f95/FM908.f

Show First 20 Lines • Show All 944 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 09430908 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 09430908
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 09440908 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 09440908
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 09450908 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 09450908
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 09460908 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 09460908
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 09470908 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 09470908
CBE** ********************** BBCFMT0B **********************************09480908 CBE** ********************** BBCFMT0B **********************************09480908
C***** 09490908 C***** 09490908
C***** END OF TEST SEGMENT 392 09500908 C***** END OF TEST SEGMENT 392 09500908
STOP 09510908 STOP, QUIET = .TRUE. 09510908
END 09520908 END 09520908

Fortran/UnitTests/fcvs21_f95/FM909.f

Show First 20 Lines • Show All 891 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08840909 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08840909
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08850909 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08850909
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08860909 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08860909
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08870909 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08870909
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08880909 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08880909
CBE** ********************** BBCFMT0B **********************************08890909 CBE** ********************** BBCFMT0B **********************************08890909
C***** 08900909 C***** 08900909
C***** END OF TEST SEGMENT 393 08910909 C***** END OF TEST SEGMENT 393 08910909
STOP 08920909 STOP, QUIET = .TRUE. 08920909
END 08930909 END 08930909

Fortran/UnitTests/fcvs21_f95/FM910.f

Show First 20 Lines • Show All 436 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04890910 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04890910
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04900910 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04900910
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04910910 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04910910
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04920910 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04920910
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04930910 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04930910
CBE** ********************** BBCFMT0B **********************************04940910 CBE** ********************** BBCFMT0B **********************************04940910
C***** 04950910 C***** 04950910
C***** END OF TEST SEGMENT 910 04960910 C***** END OF TEST SEGMENT 910 04960910
STOP 04970910 STOP, QUIET = .TRUE. 04970910
END 04980910 END 04980910
C********************************************************************** 00010911 C********************************************************************** 00010911
C***** FM911 00020911 C***** FM911 00020911
C***** 00030911 C***** 00030911
C***** SN911 EAQ - (806) 00040911 C***** SN911 EAQ - (806) 00040911
C***** THIS SUBROUTINE IS CALLED BY FM910 00050911 C***** THIS SUBROUTINE IS CALLED BY FM910 00050911
C********************************************************************** 00060911 C********************************************************************** 00060911
▲ Show 20 Lines • Show All 62 Lines • Show Last 20 Lines

Fortran/UnitTests/fcvs21_f95/FM912.f

Show First 20 Lines • Show All 881 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 08800912 C**** FORMAT STATEMENTS FOR RUN SUMMARY 08800912
C**** 08810912 C**** 08810912
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08820912 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 08820912
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08830912 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 08830912
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08840912 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 08840912
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08850912 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 08850912
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08860912 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 08860912
CBE** ********************** BBCFMT0B **********************************08870912 CBE** ********************** BBCFMT0B **********************************08870912
STOP 08880912 STOP, QUIET = .TRUE. 08880912
END 08890912 END 08890912
C********************************************************************** 00010913 C********************************************************************** 00010913
C***** FORTRAN 77 00020913 C***** FORTRAN 77 00020913
C***** FM913 00030913 C***** FM913 00030913
C***** SN913 FAQ - (807) 00040913 C***** SN913 FAQ - (807) 00040913
C***** THIS SUBROUTINE IS CALLED BY PROGRAM FM912 00050913 C***** THIS SUBROUTINE IS CALLED BY PROGRAM FM912 00050913
C********************************************************************** 00060913 C********************************************************************** 00060913
Show All 40 Lines

Fortran/UnitTests/fcvs21_f95/FM914.f

Show First 20 Lines • Show All 254 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02530914 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02530914
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02540914 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02540914
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02550914 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02550914
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02560914 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02560914
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02570914 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02570914
CBE** ********************** BBCFMT0B **********************************02580914 CBE** ********************** BBCFMT0B **********************************02580914
C***** 02590914 C***** 02590914
C***** END OF TEST SEGMENT 914 02600914 C***** END OF TEST SEGMENT 914 02600914
STOP 02610914 STOP, QUIET = .TRUE. 02610914
END 02620914 END 02620914

Fortran/UnitTests/fcvs21_f95/FM915.f

Show First 20 Lines • Show All 342 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03410915 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03410915
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03420915 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03420915
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03430915 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03430915
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03440915 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03440915
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03450915 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03450915
CBE** ********************** BBCFMT0B **********************************03460915 CBE** ********************** BBCFMT0B **********************************03460915
C***** 03470915 C***** 03470915
C***** END OF TEST SEGMENT 431 03480915 C***** END OF TEST SEGMENT 431 03480915
STOP 03490915 STOP, QUIET = .TRUE. 03490915
END 03500915 END 03500915

Fortran/UnitTests/fcvs21_f95/FM916.f

Show First 20 Lines • Show All 248 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02470916 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02470916
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02480916 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02480916
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02490916 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02490916
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02500916 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02500916
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02510916 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02510916
CBE** ********************** BBCFMT0B **********************************02520916 CBE** ********************** BBCFMT0B **********************************02520916
C***** 02530916 C***** 02530916
C***** END OF TEST SEGMENT 432 02540916 C***** END OF TEST SEGMENT 432 02540916
STOP 02550916 STOP, QUIET = .TRUE. 02550916
END 02560916 END 02560916

Fortran/UnitTests/fcvs21_f95/FM917.f

Show First 20 Lines • Show All 335 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03340917 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03340917
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03350917 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03350917
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03360917 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03360917
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03370917 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03370917
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03380917 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03380917
CBE** ********************** BBCFMT0B **********************************03390917 CBE** ********************** BBCFMT0B **********************************03390917
C***** 03400917 C***** 03400917
C***** END OF TEST SEGMENT 433 03410917 C***** END OF TEST SEGMENT 433 03410917
STOP 03420917 STOP, QUIET = .TRUE. 03420917
END 03430917 END 03430917

Fortran/UnitTests/fcvs21_f95/FM919.f

Show First 20 Lines • Show All 260 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02590919 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02590919
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02600919 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02600919
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02610919 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02610919
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02620919 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02620919
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02630919 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02630919
CBE** ********************** BBCFMT0B **********************************02640919 CBE** ********************** BBCFMT0B **********************************02640919
C***** 02650919 C***** 02650919
C***** END OF TEST SEGMENT 438 02660919 C***** END OF TEST SEGMENT 438 02660919
STOP 02670919 STOP, QUIET = .TRUE. 02670919
END 02680919 END 02680919

Fortran/UnitTests/fcvs21_f95/FM920.f

Show First 20 Lines • Show All 347 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03460920 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03460920
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03470920 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03470920
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03480920 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03480920
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03490920 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03490920
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03500920 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03500920
CBE** ********************** BBCFMT0B **********************************03510920 CBE** ********************** BBCFMT0B **********************************03510920
C***** 03520920 C***** 03520920
C***** END OF TEST SEGMENT 439 03530920 C***** END OF TEST SEGMENT 439 03530920
STOP 03540920 STOP, QUIET = .TRUE. 03540920
END 03550920 END 03550920

Fortran/UnitTests/fcvs21_f95/FM921.f

Show First 20 Lines • Show All 344 Lines • ▼ Show 20 Lines
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03430921 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 03430921
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03440921 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 03440921
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03450921 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 03450921
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03460921 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 03460921
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03470921 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 03470921
CBE** ********************** BBCFMT0B **********************************03480921 CBE** ********************** BBCFMT0B **********************************03480921
C***** 03490921 C***** 03490921
C***** END OF TEST SEGMENT 441 03500921 C***** END OF TEST SEGMENT 441 03500921
STOP 03510921 STOP, QUIET = .TRUE. 03510921
END 03520921 END 03520921

Fortran/UnitTests/fcvs21_f95/FM922.f

Show First 20 Lines • Show All 256 Lines • ▼ Show 20 Lines
C**** FORMAT STATEMENTS FOR RUN SUMMARY 02540922 C**** FORMAT STATEMENTS FOR RUN SUMMARY 02540922
C**** 02550922 C**** 02550922
90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02560922 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 02560922
90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02570922 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 02570922
90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02580922 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 02580922
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02590922 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 02590922
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02600922 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 02600922
CBE** ********************** BBCFMT0B **********************************02610922 CBE** ********************** BBCFMT0B **********************************02610922
STOP 02620922 STOP, QUIET = .TRUE. 02620922
END 02630922 END 02630922

Fortran/UnitTests/fcvs21_f95/README

Show First 20 Lines • Show All 53 Lines • ▼ Show 20 Lines
- adjust I0? logical unit (I06,I08,etc.) for many tests to avoid race conditions when - adjust I0? logical unit (I06,I08,etc.) for many tests to avoid race conditions when
running in parallel running in parallel
- rename CSEQ, DIRFILE, CDIR for many tests to avoid race conditions when running in - rename CSEQ, DIRFILE, CDIR for many tests to avoid race conditions when running in
parallel parallel
June 12 by Nichols A. Romero June 12 by Nichols A. Romero
- remove `driver_parse` script since it is not needed or used. - remove `driver_parse` script since it is not needed or used.
June 23 by Nichols A. Romero June 23 by Nichols A. Romero
- Added comments regarding the use of the `driver_run` script. - Added comments regarding the use of the `driver_run` script.
2022 May by Diana Picus
- Set QUIET = .TRUE. in the STOP statements.