1! { dg-do compile }
2! Test the fix for PR55362; the error below was missed and an ICE ensued.
3!
4! ! Contributed by Dominique d'Humieres  <dominiq@lps.ens.fr>
5!
6program ice_test
7  implicit none
8  write(*,*) 'message: ', &
9             size(Error_Msg),Error_Msg()     ! { dg-error "must be an array" }
10  write(*,*) 'message: ', &
11             size(Error_Msg ()),Error_Msg()  ! OK of course
12contains
13  function Error_Msg() result(ErrorMsg)
14    character, dimension(:), pointer :: ErrorMsg
15    character, dimension(1), target :: str = '!'
16    ErrorMsg => str
17  end function Error_Msg
18end program ice_test
19