Intel® Fortran Compiler Classic and Intel® Fortran Compiler Developer Guide and Reference

ID 767251
Date 9/08/2022
Public

A newer version of this document is available. Customers should click here to go to the newest version.

Visible to Intel only — GUID: GUID-5A209E8F-67A6-4ECF-96C2-E246FA615114

Document Table of Contents

SELECT CASE and END SELECT

Statement: Transfers program control to a selected block of statements according to the value of a controlling expression.

Example
CHARACTER*1 cmdchar . . . Files: SELECT CASE (cmdchar) CASE ('0') WRITE (*, *) "Must retrieve one to nine files" CASE ('1':'9') CALL RetrieveNumFiles (cmdchar) CASE ('A', 'a') CALL AddEntry CASE ('D', 'd') CALL DeleteEntry CASE ('H', 'h') CALL Help CASE DEFAULT WRITE (*, *) "Command not recognized; please re-enter" END SELECT Files