[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr89344.f90

! { dg-do compile }
program demo_setval
   call setval(value)
   write(*,*)'VALUE=',value
   contains
      subroutine setval(value)
         class(*),intent(in) :: value
         select type(value)
            type is (integer)
               value = 10     ! { dg-error "in variable definition context" }
            type is (real)
               value = 10.20  ! { dg-error "in variable definition context" }
         end select
      end subroutine setval
end program demo_setval