fortran程序编辑

设变量color_light是字符型变量，表示灯光色彩，编一CASE构造，当该变量值是红色(RED)则打印STOP字样。当变量值是黄色(YELLOW)，打印WAIT字样，当值是绿色(GREEN)打印CROSS字样。

我的代码是

character*1 c
read *,c
key_input:select case(c)
    case('red')
        print *,'stop'
    case('yellow')
        print *,'wait'
    case('green')
        print *,'cross'
    end select key_input
end

请问哪里错了