[Bug fortran/66633] New: ICE on valid "verify_gimple failed" with OpenMP

["abensonca at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66633

            Bug ID: 66633
           Summary: ICE on valid "verify_gimple failed" with OpenMP
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: abensonca at gmail dot com
  Target Milestone: ---

The following causes an ICE in gfortran 6.0.0 (r224761):

module spls
  type :: spc
   contains
     procedure :: l => spcL
  end type spc

contains
  function spl()
    class(spc), pointer :: spc_
    !$omp parallel
    write (0,*) igrt(fli)
    !$omp end parallel
  contains
    double precision function fli()
      fli=spc_%l()
    end function fli
  end function spl
  double precision function spcL(s)
    implicit none
    class(spc), intent(inout) :: s
    return
  end function spcL
end module spls


$ gfortran -v
Using built-in specs.
COLLECT_GCC=/opt/gcc-trunk/bin/gfortran
COLLECT_LTO_WRAPPER=/opt/gcc-trunk/libexec/gcc/x86_64-unknown-linux-gnu/6.0.0/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc-trunk/configure --prefix=/opt/gcc-trunk
--enable-languages=c,c++,fortran --disable-multilib
Thread model: posix
gcc version 6.0.0 20150622 (experimental) (GCC) 


 gfortran -c tmp.F90 -o tmp.o -fopenmp
tmp.F90:11:0:

     write (0,*) igrt(fli)
^
Error: invalid argument to gimple call
&<<< error >>>.fli
D.3429 = __builtin_adjust_trampoline (&<<< error >>>.fli);
tmp.F90:11:0: internal compiler error: verify_gimple failed
0xbaf19d verify_gimple_in_seq(gimple_statement_base*)
        ../../gcc-trunk/gcc/tree-cfg.c:4790
0xab14b0 execute_function_todo
        ../../gcc-trunk/gcc/passes.c:1987
0xab1c63 execute_todo
        ../../gcc-trunk/gcc/passes.c:2042
Please submit a full bug report,
with preprocessed source if appropriate.
Please include the complete backtrace with any bug report.
See <http://gcc.gnu.org/bugs.html> for instructions.