re PR target/84565 (ICE in extract_insn, at recog.c:2304 on aarch64)

	PR fortran/84565
	* config/aarch64/predicates.md (aarch64_simd_reg_or_zero): Use
	aarch64_simd_or_scalar_imm_zero rather than aarch64_simd_imm_zero.

	* gfortran.dg/pr84565.f90: New test.

From-SVN: r258333

gcc/ChangeLog

 2018-03-07  Jakub Jelinek  <jakub@redhat.com>
 
+	PR fortran/84565
+	* config/aarch64/predicates.md (aarch64_simd_reg_or_zero): Use
+	aarch64_simd_or_scalar_imm_zero rather than aarch64_simd_imm_zero.
+
 	PR c++/84704
 	* gimple-expr.c (create_tmp_var_raw): Set DECL_NAMELESS flag
 	on tmp_var.

gcc/config/aarch64/predicates.md

@@ -395,7 +395,7 @@
   (and (match_code "reg,subreg,const_int,const_double,const,const_vector")
        (ior (match_operand 0 "register_operand")
 	    (match_test "op == const0_rtx")
-	    (match_operand 0 "aarch64_simd_imm_zero"))))
+	    (match_operand 0 "aarch64_simd_or_scalar_imm_zero"))))
 
 (define_predicate "aarch64_simd_struct_operand"
   (and (match_code "mem")

gcc/testsuite/ChangeLog

 2018-03-07  Jakub Jelinek  <jakub@redhat.com>
 
+	PR fortran/84565
+	* gfortran.dg/pr84565.f90: New test.
+
 	PR middle-end/84723
 	* gcc.target/i386/pr84723-1.c: New test.
 	* gcc.target/i386/pr84723-2.c: New test.

gcc/testsuite/gfortran.dg/pr84565.f90

+! PR fortran/84565
+! { dg-do compile { target aarch64*-*-* } }
+! { dg-options "-mlow-precision-sqrt -funsafe-math-optimizations" }
+subroutine mysqrt(a)
+ real(KIND=KIND(0.0D0)) :: a
+ a=sqrt(a)
+end subroutine