ice: one-line case statement

[Daniel Franke]

Just hit this one:

$> cat ice.f90
PROGRAM ice
  INTEGER, PARAMETER :: x = 1
  SELECT CASE (x)
    CASE (1)    WRITE (*,*) 'ice'
  END SELECT
END PROGRAM

$> gfortran-4.1.1 ice.f90
ice.f90:0: internal compiler error: Segmentation fault

I have a checkout of gcc-4.2 from July where this seems to be fixed.
Could someone please verify this for 4.1.x?

Thanks.
    Daniel