https://bugs.llvm.org/show_bug.cgi?id=47309

            Bug ID: 47309
           Summary: CASE conflicts with previous cases
           Product: flang
           Version: trunk
          Hardware: PC
                OS: Linux
            Status: NEW
          Severity: normal
          Priority: P
         Component: Frontend
          Assignee: unassignedb...@nondot.org
          Reporter: riccardo.berto...@gmail.com
                CC: david.tr...@arm.com, jper...@nvidia.com,
                    kirankuma...@gmail.com, llvm-bugs@lists.llvm.org,
                    sscalp...@nvidia.com

Created attachment 23894
  --> https://bugs.llvm.org/attachment.cgi?id=23894&action=edit
source code that triggers the problem

this gives an error

$cat select_case.f90
program pippo                           
implicit none                           

integer :: test                         

read (*,*) test                         
select case(test)                       
    case(0:)                            
      write (*,*) 'Not negative number' 
    case(:-1)                           
      write(*,*) 'Negative number'      
end select                              


end program                             

$flang select_case.f90
select_case.f90:10:5: error: CASE (:-1_16) conflicts with previous cases 
      case(:-1)                                                          
      ^^^^^^^^^                                                          
select_case.f90:8:5: Conflicting CASE (0_16:)                            
      case(0:)                                                           
      ^^^^^^^^                                                           
/scratch/llvm/bin/f18: semantic errors in select_case.f90

-- 
You are receiving this mail because:
You are on the CC list for the bug.
_______________________________________________
llvm-bugs mailing list
llvm-bugs@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs

Reply via email to