Where do you use Fortran block?

Fortran 2008 introduces the keyword block to define a new scope where new local variables can be declared. I use block only when I need to add temporary diagnostic codes in an existing program. Are there are other settings that make block useful?