select_no_compile.f

来自「this is a gcc file, you can download it 」· F 代码 · 共 11 行

       integer*1 one
       integer*2 two
       parameter (one=1)
       parameter (two=2)
       select case (I)
       case (one)
       case (two)
       end select
       end